
Calhoun 

iniQiuiic^iul Ar{hiv« of tilt Mil vdl Poii^roduiit School 


Calhoun: The NPS Institutional Archive 
□Space Repository 



Theses and Dissertations 


1. Thesis and Dissertation Collection, all items 


2013-06 

A systems analysis of strike Naval Aviation training 

Nekomoto, Tyler Y. 

Monterey, California: Naval Postgraduate School 


http://hdl.handle.net/10945/34712 


This publication is a work of the U.S. Government as defined in Title 17, United 
States Code, Section 101. Copyright protection is not available for this work in the 
United States. 

Downloaded from NPS Archive: Calhoun 



DUDLEY 

KNOX 

LIBRARY 


htt p://w ww. n ps. e du/l ib ra ry 


Caflwuo is the Naval Postgraduate School's public access digital repository for 
research mate rials and institutiional publicatkins created by the NPS community. 
Calhoun is named for Professor of Mathematics Guy K. Caftiouo, NPS's first 
appointed — and published — schoteily author. 

Dudley Knox Library / Naval Postgraduate School 
411 Dyer Road / 1 Univefsity Circle 
Monterey, California USA 93943 







NAVAL 

POSTGRADUATE 

SCHOOL 


MONTEREY, CALIFORNIA 


THESIS 


A SYSTEMS ANALYSIS OF STRIKE NAVAL AVIATION 

TRAINING 


by 


Tyler Y. Nekomoto 


June 2013 


Thesis Advisor: 

Matthew Boensel 

Co-Advisor: 

Ronald Giachetti 


Approved for public release; distribution is unlimited 




THIS PAGE INTENTIONALLY LEET BLANK 



REPORT DOCUMENTATION PAGE 


Form Approved OMB No. 0704-0188 


Public reporting burden for this collection of information is estimated to average 1 hour per response, including the time for reviewing instruction, 
searching existing data sources, gathering and maintaining the data needed, and completing and reviewing the collection of information. Send 
comments regarding this burden estimate or any other aspect of this collection of information, including suggestions for reducing this burden, to 
Washington headquarters Services, Directorate for Information Operations and Reports, 1215 Jefferson Davis Highway, Suite 1204, Arlington, VA 
22202-4302, and to the Office of Management and Budget, Paperwork Reduction Project (0704-0188) Washington, DC 20503._ 


1. AGENCY USE ONLY (Leave blank) 2. REPORT DATE 3. REPORT TYPE AND DATES COVERED 

June 2013 Master’s Thesis 


4. TITLE AND SUBTITLE 

A SYSTEMS ANALYSIS OF STRIKE NAVAL AVIATION TRAINING 


6. AUTHOR(S) Tyler Y. Nekomoto_ 


7. PEREORMING ORGANIZATION NAME(S) AND ADDRESS(ES) 

Naval Postgraduate School 
Monterey, CA 93943-5000 


9. SPONSORING /MONITORING AGENCY NAME(S) AND ADDRESS(ES) 


5. LENDING NUMBERS 


8. PEREORMING ORGANIZATION 
REPORT NUMBER 


10. SPONSORING/MONITORING 
AGENCY REPORT NUMBER 


11. SUPPLEMENTARY NOTES The views expressed in this thesis are those of the author and do not reflect the official policy 
or position of the Department of Defense or the U.S. Government. IRB Protocol number_^N/A_. 


12a. DISTRIBUTION / AVAILABILITY STATEMENT 

Approved for public release; distribution is unlimited 


13. ABSTRACT (maximum 200 words) 


12b. DISTRIBUTION CODE 


The Commander Naval Air Forces is analyzing the entire Naval Aviation training process to deliver the same quality 
of training but at a lower cost. This thesis documents the Systems Engineering process completed to conceive, design, 
and develop a desktop model that supports the investigation of training alternatives. The Naval Aviation Proficiency 
Analysis model incorporates the General Aviator Learning Equation methodology developed by the Naval Air 
Warfare Center Training Systems Divisions’ Human Performance Analysis and Instructional Systems Division into a 
user-friendly self-automated spreadsheet model. It analyzes downloading efforts—moving blocks of flights or 
simulators from a phase with higher platform operational cost to one with lower platform operational cost—and 
highlights the effects that downloading has on cost, hour, and skill proficiency differences across all pipeline skills. 
The next steps are to incorporate offloading (flights to simulators) and find optimal training solutions by incorporating 
an after-market solver. 


14. SUBJECT TERMS Naval Aviation, Model, Strike Fighter Naval Aviation Training, Aviation 
Training, Aviation Pipeline, Pilot Training, Naval Flight Officer Training 


17. SECURITY 
CLASSIEICATION OE 
REPORT 

Unclassified 


NSN 7540-01-280-5500 


18. SECURITY 
CLASSIEICATION OE THIS 
PAGE 

Unclassified 


19. SECURITY 
CLASSIEICATION OE 
ABSTRACT 

Unclassified 


15. NUMBER OE 
PAGES 

149 


16. PRICE CODE 


20. LIMITATION OE 
ABSTRACT 


Standard Form 298 (Rev. 2-89) 
Prescribed by ANSI Std. 239-18 


1 




























THIS PAGE INTENTIONALLY LEET BLANK 


11 



Approved for public release; distribution is unlimited 


A SYSTEMS ANALYSIS OF STRIKE NAVAL AVIATION TRAINING 


Tyler Y. Nekomoto 
Commander, United States Navy 
B.S., University of Colorado, 1996 


Submitted in partial fulfillment of the 
requirements for the degree of 


MASTER OF SCIENCE IN SYSTEMS ENGINEERING 


from the 


NAVAL POSTGRADUATE SCHOOL 
June 2013 


Author; Tyler Y. Nekomoto 


Approved by: Matthew Boensel 

Thesis Advisor 


Ronald Giaehetti 
Thesis Co-Advisor 


Cliff Whiteomb 

Chair, Department of Systems Engineering 



THIS PAGE INTENTIONALLY LEET BLANK 


IV 



ABSTRACT 


The Commander Naval Air Forees is analyzing the entire Naval Aviation training proeess 
to deliver the same quality of training but at a lower cost. This thesis documents the 
Systems Engineering process completed to conceive, design, and develop a desktop 
model that supports the investigation of training alternatives. The Naval Aviation 
Proficiency Analysis model incorporates the General Aviator Learning Equation 
methodology developed by the Naval Air Warfare Center Training Systems Divisions’ 
Human Performance Analysis and Instructional Systems Division into a user-friendly 
self-automated spreadsheet model. It analyzes downloading efforts—moving blocks of 
flights or simulators from a phase with higher platform operational cost to one with lower 
platform operational cost—and highlights the effects that downloading has on cost, hour, 
and skill proficiency differences across all pipeline skills. The next steps are to 
incorporate offloading (flights to simulators) and find optimal training solutions by 
incorporating an after-market solver. 
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EXECUTIVE SUMMARY 


In the present constrained financial environment, Department of Defense is seeking areas 
to implement financial efficiencies. While searching for cost-reduction opportunities, the 
Commander of Naval Air Forces initiated an end-to-end analysis of Naval Aviation 
training. To support this, the Human Performance Analysis and Instructional Systems 
Division of Naval Air Warfare Center Training Systems Division (NAWCTSD) 
requested a desktop model capable of analyzing potential syllabus changes for the cost 
reduction effort. The model must compare baseline training syllabi against altered ones to 
highlight the difference in skill proficiency and cost savings from those alterations. 

The Naval Aviation Proficiency Analysis (NAPA) model was conceived, 
designed, and implemented in Microsoft Excel, using Visual Basic for Applications, in 
response to this need. The systems approach taken to complete this effort followed a 
modified waterfall process to guide development of the model. Systems Engineering best 
practices produced a model capable of satisfying user needs, while providing required 
system behaviors needed to facilitate Naval Aviation training analysis. 

NAPA is suited to run on any computer with Microsoft Excel (2007 or later) 
installed. Its extensible architecture supports all training pipelines, and it has been 
designed to support alternative analysis efforts in the future. NAPA provides the two 
capabilities required by the primary stakeholder: (1) to determine the overall effect that 
hour reductions or training alterations have on the overall proficiency of the graduating 
aircrew; and (2) to identify training combinations that satisfy required proficiency levels 
at the desired cost. The NAPA model is currently in use by NAWCTSD HP/ISD. 
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I. INTRODUCTION 


A. THESIS SCOPE 

Today’s poor financial environment stresses every governmental program. As 
budgets incorporate drastic reductions, analysts scramble to provide alternatives to 
minimize degradation to our war-fighting capability. 

While searching for areas capable of supporting cost reductions, the Commander 
of Naval Air Forees (CNAF) initiated a “Street-to-Fleet” analysis of Naval Aviation 
training. The Human Performance Analysis and Instructional Systems Division (HP/ISD) 
of the Naval Air Warfare Center Training Systems Division (NAWCTSD) has been 
supporting this analysis from inception and needs a desktop model to support their 
analysis efforts. NAWCTSD HP/ISD started with the Strike training pipeline with the 
intent of applying the same methodology to other training pipelines in the future. 
NAWCTSD HP/ISD has eompiled data for this pipeline and identified a desired 
methodology for analysis, but has not ineorporated them into an automated, easy-to-use 
model, capable of quickly analyzing scenarios that deeision-makers want to investigate. 

This thesis doeuments the Systems Engineering (SE) proeess completed to 
conceive, design, and develop a desktop model capable of supporting the investigation of 
variations in the way the Navy currently eonducts aviation training. Before deseribing 
specifics of the effort, some background information will help place this effort in eontext. 

B, BACKGROUND 

1, Organizational Structure of Naval Aviation Training 

Naval Aviator and Naval Elight Officer (NEO) training and production are 
eurrently conducted by seventeen Training Command (TRACOM) squadrons, aligned 
under five Training Air Wings (TRAWINGs) loeated at five Naval Air Stations in the 
southeastern United States (Chief of Naval Air Training 2012). Although the ultimate 
responsibility to provide trained airerew to the Eleet rests with Commander, Naval Air 
Eorces (CNAE), it is accomplished through a relationship with the Chief of Naval Air 
Training (CNATRA), the TRACOM, and the various platform Eleet Replaeement 
Squadrons (ERSs) seen in Eigure 1. 
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Chief Of Naval Air 
Training 
(CNATRA) 



CNATRA is aligned under Commander, Naval Air Foree, Pacific Fleet and 
CNAF-in the Naval Aviation Enterprise (NAE) concept. CNATRA also serves as the 
CNAE Deputy Commander for training, granting CNATRA the authority to orchestrate 
and manage the full spectrum of the training continuum-from student induction through 
the completion of ERS training (Chief of Naval Air Training 2012). ERS training 
becomes platform dependent and is provided at locations shown in Eigure 2. 
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Figure 2. Current Fleet Replaeement Squadrons and Loeations for Naval Aviators 

(From Chief of Naval Air Training 2012) 

Aeeording to CNATRA, having the ability to manage the entire eontinuum 

enables leadership and training praetitioners to design and optimize 
training eontent and flow aeross all phases and pipelines of the entire 
training speetrum to ensure the right training is eondueted at the right 
level. Additionally, this eontinuum and alignment ensures the most 
effeetive and effieient training organization is in plaee to aehieve optimal 
student aviator time to train. This eontinuum and alignment ultimately 
ensures the produetion of the world’s finest Aerial Warriors for the 
world’s finest Air Foree - the Naval Air Foree. A Naval Air Foree made 
up of Naval Aviators and NFOs, who ean think, perform, Exeel under 
pressure, and deliver in the most demanding aviation environment— 
projeeting power ashore or at sea from the decks of aircraft carriers both 
day and night.(2012) 

2, Big Business/Big Budget 

CNATRA’s annual flight budget for training is in excess of $575 million. A little 
more than 1,300 instructors fly approximately 750 TRACOM aircraft over 350,000 flight 
hours in order to provide slightly more than 1,500 pilots and NFOs to the Fleet each year. 
CNATRA operates almost a third of the Navy’s aircraft inventory and accounts for nearly 
a third of its annual flight hours (Chief of Naval Air Training 2012). 
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CNATRA fulfills the needs of the Fleet through various training pipelines. The 
NFO pipeline / aireraft seleetion occurs throughout the continuum as shown in Figure 3 



Figure 3. NFO Training Pipeline (From Chief of Naval Air Training 2012) 


After Primary, SNFOs selected to fly as a navigator in a large, multi-engine 
aircraft, report directly to their selected platform FRS while the rest of the SNFOs 
continue on to the tactical (Intermediate) phase of training. Upon completion of 
Intermediate, SNFOs selected for E-2Cs report directly to the FRS, while Strike and 
Strike/Fighter SNFOs continue on to advanced training in the T-45C Goshawk. 

Student Naval Aviators (SNAs) are selected for Maritime (multi-engine prop), E- 
2/C-2, Rotary (helicopters). Strike Gets)? ^nd the E-6 TACAMO after Primary flight 
training. Eollow-on platforms are pipeline specific and can be seen in Eigure 4. 
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Figure 4. Naval Aviator Training Pipeline (From Chief of Naval Air Training 2012) 
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According to CNATRA’s Assistant Chief of Staff for Resources (N8), the FYl 1 eost 
to train a Naval Aviator through the TRACOM Strike syllabus was just over $1.1 million 
dollars (personal communieation, October 29, 2012). FRS costs would raise that number 
even higher before a Fleet aviator was produeed. 

3. Total Ownership Cost Optimization 

a. Organizations and Objectives 

The Direetor of Air Warfare (N88) initiated a Total Ownership Cost 
(TOC) optimization objeetive in 2011 to determine if efficieneies could be found in 
aviation training. Supporting this initiative, the Program Offiee for Undergraduate Flight 
Systems (PMA-273) worked with CNAF and CNATRA to redefine the training pipelines 
and assoeiated syllabi. Their goal was simple—to provide the Fleet with a better trained 
aviator at a lower eost. 

PMA-273 seleeted the Strike pipeline as the first training pipeline for 
analysis with the intent of applying the same methodology to the rest of the training 
pipelines after proven sueeess. PMA-273 eoordinated with NAWCTSD HP/ISD to set 
objeetives for the TOC initiative. Aeeording to NAWCTSD HP/ISDs lead seientist. Dr. 
Joseph Sheehan, in a teehnieal approaeh overview brief given in Naval Air Station 
Fallon, NV on June 12, 2012, the objeetives were to: 

• Develop a set of Fleet-supportive, generalizable skills 

• Develop a proeess for understanding and evaluating the baseline 
training eontinuum for NAE skills within multiple training 
pipelines 

• Develop a semi-automated system to prediet the outeomes of 
proposed solutions 

• Execute proeess on representative Type/Model/Series (T/M/S) 
aviation platforms. 

The first two objeetives have sinee been aeeomplished. This thesis focused 
on the third objective—to develop a semi-automated model capable of supporting 
analysis efforts. The model would explore the effeets of re-alloeating hours aeross the 
eontinuum on both eost and airerew profieieney. Aeeording to Dr. Sheehan, the model 
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would provide two main capabilities; determining the overall effect alterations in training 
hours may have on the overall proficiency of graduating aircrew; and identifying training 
combinations that satisfy the utilization of different platforms to achieve the desired cost 
and proficiency levels (Teleconference July 23, 2012). 

b. New Grading Convention Supporting the Initiative 

In a parallel effort, CNATRA was finalizing a new grading convention 
that provided the framework to understand and evaluate the baseline training system. 
CNATRA retired the old Navy Standard Score Grading (NSSG) convention, in favor of 
the new Multi-Service Pilot and NFO Training System (MPTS/MNTS). 

With the NSSG convention, grades were assigned to specific flight 
objectives but provided limited description of the overall proficiency gain of desired 
skills across the continuum. As such, when a student was flagged with a signal of 
difficulty, it was challenging to identify occurrences of related deficiencies in a timely 
manner (Chief of Naval Air Training 2012). In other words, skill proficiency gain was 
not traceable throughout the pipeline. 

The MPTS/MNTS convention breaks each stage of training down into 
carefully designed training blocks which, in turn, incrementally build and refine a 
baseline set of required skills (Chief of Naval Air Training 2012). The training blocks 
satisfy learning objectives that support task lists and functions within each pipeline— 
ultimately building proficiency in the identified pipeline skills. The knowledge, skills, 
and abilities (KSAs) developed throughout the continuum are also monitored, allowing 
common threads in student deficiencies to be identified and tracked more effectively. The 
TOC optimization initiative leveraged the new modular framework of the training 
continuum and treats the training blocks as movable pieces—capable of being 
“downloaded” or “offloaded” across the training continuum. 

c. Cost-reduction Techniques 

If a training efficiency is to be considered, it must provide a reduction in 
the overall cost-to-train while not allowing skill proficiency to drop below desired levels. 
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According to U.S. Fleet Forees Command N02 representative CDR William Mallory, 
Table 1 shows the FY12 operating cost per flight hour in U.S. dollars of all platforms 
currently in the Strike pipeline (personal eommunication, September 4, 2012). 


Phitfoiin 

Cost Fit Hi (FY12 Dollars) 

T-6A Texan II 

SL200 

T-45C Goshawk 

$3,924 

F/A-18 C hornet 

$10,200 

F/A-18 D hornet 

$11,600 

F/A-18 E Siiperhomet 

$9,600 

F/A-18F Siiperhomet 

$10,000 


Table 1. Cost Per Flight Hour of Platforms in the Strike Pipeline 

Downloading is a simple concept - fly sorties in platforms that are cheaper 
to operate. In the Strike example, flights normally flown in an F/A-18 Hornet or 
Superhornet would be moved to a T-45C Goshawk or a T-6A Texan II to reduce the cost 
to complete them. These cost efficiencies don’t come without a trade-off. Platforms with 
lower operational eost are typically platforms with less capability. To address this 
capability degradation, a downloaded sortie may require more flight hours in a lower eost 
platform to achieve the same KSA achievement. 

Similar to downloading, the coneept of offloading attempts to minimize 
cost while maintaining a required proficiency level, but accomplishes it by moving from 
the actual platform to a simulated platform. Onee again, offloading efficiencies do not 
come without a price tag. Although significant advances have been made in modeling and 
simulation, there are some areas of tactical aviation that simulators still have trouble 
accurately replicating. Differences between simulator and aircraft may result in different 
rates of proficiency gain, requiring more repetition or longer hours in the simulator to 
compensate for lost flying time. 

The TOC optimization initiative considers both of these techniques as 
critical components for optimizing training. 
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d. General Aviator Learning Equation (GALE) Methodology 

NAWCTSD HP/ISD conducted a TOC workshop in April 2012 with the 
different TRACOMs and FRSs to gather data to support their methodology eoneept. 
Instruetors and Subjeet Matter Experts (SMEs) were asked to provide high 90, low 10 
and most likely values of profieieney provided by eaeh bloek of flights. A high 90 value 
indieates the best profieieney gain value seen at most onee out of ten times while the low 
10 value indieates the worst profieieney gain value seen at most onee out of ten times. A 
most likely value indieates the profieieney gain that the SME would expeet to see in the 
average SNA based on the speeifie bloek. 

Baseline phase entry and exit profieieney values based on the eurrent 
syllabus were also obtained from pipeline SMEs during this event. Using the Strike 
syllabus as an example, the baseline values of zero profieieney were assigned to Primary 
entry profieieney values beeause SNAs would have no previous flight experienee. 
However, upon eompletion, SNAs would be eapable of aehieving a certain profieieney 
level unique to eaeh skill. NAWCTSD HP/ISD analyzed the SME input and provided a 
final expeeted exit profieieney value for eaeh skill. 

SMEs were then asked to quantify the profieieney loss that a typical SNA 
would suffer if he/she were to fly a downloaded sortie in a different platform. Eor 
example, if a speeifie air-to-air flight was flown in a T-45C instead of an E/A-18C, what 
pereentage of profieieney would result? If not flown in the aireraft of ehoiee, would some 
degradation in training oeeur? Twelve SMEs were polled and the resultant values were 
provided as a number known as a “media degrader value.” This value represents the 
pereentage of profieieney one ean expeet to get if the flight in question is downloaded 
from one platform to another. Every building block across the pipeline was assigned 
media degrader values for every download scenario. These values are utilized by GALE 
methodology to reduee downloaded flights by an appropriate amount to provide the final 
redueed profieieney curve. 

Additionally, there were “loss faetors” provided by SMEs; these loss 
faetors represented the amount of profieieney lost between phases in training. As an 
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example, when a SNA leaves Primary flight training and enters Intermediate flight 
training, there is a loss of proficiency that occurs in the transition between a turbo prop 
aircraft and a jet aircraft. This degradation would set back the SNAs proficiency slightly, 
until more proficiency was attained by conducting training events. To keep the desktop 
model simple, the degradation was assumed to be constant between phases. 

The resultant data sets were utilized by NAWCTSD HP/ISD to create the 
GALE proficiency curves. Simple mathematical manipulation provided the ability for 
GALE proficiency curves to be generated for every skill, across the pipeline. The general 
shape of the curve showing where proficiency is gained across the pipeline phases was 
based on skill proficiency entry and exit data. The shape of the curve within each phase is 
a result of the individual block contribution to the total phase proficiency gain. 


Mathematically, the amount of proficiency gain (P^^^^ ^) due to each block 

is determined as the product of effectiveness and hours as a proportion of the total gain in 
the phase: 

(Effectiveness Rating)(Block Hours) 

^^Block T} 


where Pj^^^ ^ is the individual block proficiency contribution and P^ 
skill proficiency gained in the phase. 


is the total 


Additionally, overall phase proficiency, at any point, can be described as 
the cumulative sum of blocks’ proficiencies prior to the evaluation point: 

Phase Proficiency = P^^^ ^ + Cp 

where Cp is the cumulative skill proficiency on the previous block. Combined, the 
equations form the basis of the baseline GALE proficiency curve. 


Examples of two manually-created GALE proficiency curves were 
provided by NAWCTSD HP/ISD in a methodology briefing chart and are shown in 
Eigure 5. 
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Figure 5. Example of GALE Proficiency Curves 
(Erom Joseph Sheehan, pers. comm.) 


Overall proficiency in each skill is plotted as a function of individual block proficiency 
contribution. The difference in general shape of the curves is observable—one skill, 
represented by the top line in Eigure 5 (green line), displays a more linear proficiency 
gain across the pipeline, while the other, represented by the bottom line in Eigure 5 (red 
line), displays a proficiency gain weighted heavily in the latter phases of the pipeline. 
This example depicts a couple main points of interest; all skills have a unique learning 
curve shape, based on when and where proficiency is gained; and although all pipeline 
skills are affected by altering an individual block, the effect on each skill could vary 
significantly. 

What-if methodology is similar to the baseline methodology, except that it 
relies on hypothetical syllabus alterations to adjust the learning curve. The difference 
between the two curves represents the effect on skill proficiencies that specific syllabus 
manipulation causes. The variance in proficiency can be balanced with the variance in 
cost to then help determine if the hypothetical syllabus alteration provides the best value 
for the NAE. 
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C. STRIKE PIPELINE BREAKDOWN 

It is imperative to understand the different phases of flight training that airerew— 
Naval Aviators in the Strike pipeline in this ease—eomplete in order to gain the 
appropriate KSAs neeessary to beeome Fleet ready. 

SNAs initially partake in Aviation Preflight Indoetrination, or API, in Pensaeola 
FL. In API they are exposed to physieal and aeademic ehallenges in areas including: 
engineering, aerodynamics, air navigation, air physiology, and water survival (Chief of 
Naval Air Training 2012). 

Upon completion of API they enter their first flying phase, known as Primary 
flight training. Primary SNA training is conducted at three military installations: 

• NAS Whiting Field, in Milton FL 

• NAS Corpus Christi, in Corpus Christi TX 

• Vance Air Force Base (AFB), in Enid OK. 

Training lasts for approximately 22 weeks and includes the following in either the T-34 
Turbomentor or the T-6A Texan II aircraft: 

• Ground-based academics 

• Simulators 

• Flight Training 

In Primary, the focus is on basic airmanship and aircraft control. Training consists 
of six stages: Familiarization (FAM), Basic Instruments (BI), Precision Aerobatics (PA), 
Formation (FORM), night FAM, and Radio Instruments (RI). Upon completion of 
primary, pipeline selection occurs. The selection point and available pipelines for SNAs 
are shown in Figure 5 on page 4. 

In the Strike pipeline, SNAs proceed to the second phase of flight training 
commonly known as Intermediate. In the Intermediate phase, SNAs are trained in their 
first jet aircraft, the T-45C Goshawk, at one of two bases: NAS Kingsville in Texas, or 
NAS Meridian in Mississippi. SNAs learn the fundamentals of flying a faster, more agile 
aircraft and improve their proficiency levels in skills required by the Fleet. 
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Once competent in the new aircraft, they learn the fundamentals of turning an 
aircraft into a weapon system in the next phase known as Advanced. SNAs learn strike 
tactics, weapons delivery, air combat maneuvering, and receive their carrier qualification 
(Chief of Naval Air Training 2012). Upon completion of the Advanced syllabus, SNAs 
become designated Naval Aviators. At this point. Fleet platform selection occurs and the 
newly designated Naval Aviators proceed to their respective Fleet Replacement 
Squadrons. 

At the FRS, Naval Aviators fly their assigned Fleet aircraft for the first time 
where they continue to add to the skill proficiencies built to date. In the FRS, they learn 
the intricacies of their Fleet aircraft, and receive an elementary education in operational 
ordinance delivery. Additionally, they are exposed to operational tactics and procedures 
in an effort to provide them with enough skill proficiency to be a contributing member in 
the operational Fleet. 

A general understanding of the ongoing optimization efforts within Naval 
Aviation combined with a more detailed understanding of the training pipeline’s 
intricacies helped when trying to conceptualize the model that was required to support the 
analysis effort. The next chapter focuses on the model concept stage to lay the 
appropriate groundwork for design and development efforts. 
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II. CONCEPT STAGE 


A. ESTABLISHING CAPABILITY AND FUNCTIONALITY 

1. System Capabilities 

The process began with understanding what capabilities and functions must be 
provided by the model being designed. In this case, the model had to provide two user- 
defined capabilities provided by NAWCTSD HP/ISP: 

• Determine the overall effect hour reductions or alterations may have on 
the overall proficiency of graduating aircrew 

• Identify training combinations that satisfy the utilization of different 
platforms to achieve the desired cost and proficiency levels. 

Next, the model’s functions had to be identified and documented to ensure the 
capabilities could be delivered. To gain a deeper understanding of what was being 
modeled, a functional analysis on the Strike training pipeline was conducted prior to 
attempting the analysis on the model. This effort is documented in Appendix A. 

2. NAPA Model Functional Analysis 

Focusing on the model, the primary functional requirements needed to provide the 
desired capabilities are two-fold: the system must first be able to create a pipeline specific 
model representative of the desired training pipeline, and it must provide the ability to 
analyze that model given different user-defined scenarios. These were placed in context 
using an IDEFO diagram (Figure 6). 
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Figure 6. NAPA Model IDEFO 

The model must be created by first accepting user-defined input data. The 
function of creating a pipeline specific model must be controlled by the training syllabus 
and the current Fleet proficiency requirement (both user identified). The function would 
utilize a spreadsheet or data manipulation program as well as available SME data as 
mechanisms to provide a computer-based model of a specific Naval Training pipeline. 

In order to provide analysis, specific user-defined scenarios must be combined 
with the computer-based model, controlled once again, by fleet proficiency 
requirements. The analytical methodology selected must provide the mechanism to 
facilitate scenario analysis, ultimately producing resultant cost and skill proficiencies. 

Completing this portion of the analysis developed a deeper understanding of 
functional relationships, data requirements, and basic manufacturing framework of the 
model. However, not all functions of the model were represented yet. In order to produce 
a complete functional decomposition of the required system, consideration had to be 
given to how the model would interact with its intended environment. The additional 
analysis resulted in figure 7, the final functional decomposition of the NAPA model. 
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Figure 7. NAPA Model Funetional Deeomposition 


There were five primary funetions identified. Speeifieally, the model must: 

• Provide user guidance. Inherent user guidanee is eritieal to inerease the 
overall usability of the model. Speeifieally, guidanee ean be informative or 
instruetional. 

• Maintain Extensibility. The model has to aeeount for differenees within 
eaeh training pipeline. It must aeeept user eonfigurations and parameters 
to aeeount for those differenees. 

• Manipulate Data. The model must be able to aeeept, proeess, and store 
user-defined data sets in a format eommon to all pipelines. 

• Provide Analysis. Obviously, the model must be able to provide the 
desired analysis. Speeifieally, it must be able to eompare seenarios or 
speeifie alterations in training, as well as support optimization analysis of 
the training pipelines. 

• Be Supportable. A supportable model ean provide a longer serviee life. 
The maintainability of the model is also erueial to long-term supportability 
of the model. 


B, REQUIREMENTS DEFINITION AND ANALYSIS 

As the primary stakeholder and projeet sponsor, NAWCTSD HP/ISD provided a 
list of needs that the model should satisfy. The original needs statement is provided in 
Appendix B. 
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Since the TOC initiative was already in progress, transforming user needs into 
requirements did not require mueh iteration. A series of telephone calls and email 
exchanges with NAWCTSD HP/ISD personnel eonfirmed the top-level requirements the 
model must fulfdl, as well as the system behaviors the model must display. Speeifically, 
the model shall: 

• Accept user-defined data sets 

• Accurately represent user-selected pipeline 

• Support variations of Basie Query: Provided defined linkages, how single 
or multiple training efficiencies alter expeeted levels of proficiency 

• Be searchable and sortable 

• Inform user of breaehed thresholds 

• Allow user-defined parameters to dietate model baseline structure 

• Ineorporate live, real-time updating for scenario analysis 

• Provide proficiency and cost outputs for analysis 

Additionally, some top-level derived requirements were identified to provide the 
functionality identified in the funetional deeomposition. In particular, the model was 
required to: 

• Be executable on any Navy Marine Corps Intranet (NMCI) computer 

• Be operable by an individual with a baseline of knowledge in Naval 
Aviation training 

• Be usable by an individual with a basic familiarity (input, output, copy, 
paste, and basic navigation / manipulation) with spreadsheet programs 
(e.g. Mierosoft Excel or iWork Numbers) 

• Be extensible (usable by all training pipelines) 

• Be maintainable by an individual with above average eomputing skills 
(some programming experienee in the programming language selected) 

1. Software Constraints 

Since any NMCI eomputer may be required to operate the model, programming 
software would be limited to the NMCI software library. This, combined with the 
requirement for the model to be spreadsheet-based, resulted in a eonstraint to use 
Microsoft Excel and its resident Visual Basic for Applications (VBA) programming 

capability for model creation. Additionally, since many aftermarket optimization 
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applications require annual financial support, any optimization routines would have to be 
accomplished with the built-in optimization modeling system or Solver unless funding 
allowed otherwise. 

2. Methodology Limitations 

The model had to utilize NAWCTSD HP/ISP’s GALE methodology to analyze 
training pipelines. This would allow the model to seamlessly integrate with the ongoing 
effort, providing immediate benefit to the primary stakeholder. 

3. Data limitations 

Although a significant amount of data was provided in support of this effort, 
offloading data was not available. NAWCTSD HP/ISD is still in the process of gathering 
data on moving bloeks from flight platforms to simulator platforms. Until a eomplete set 
of data is available, downloading is the only initiative capable of being analyzed. As 
such, the model would be designed to support downloading analysis immediately, while 
maintaining the ability to incorporate offloading analysis in the future. 

4. Assumptions 

Along with constraints and limitations, assumptions made throughout the effort 

had to be eaptured for future referenee. Table 2 lists the assumptions made to complete 
the modeling effort. 
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Assumption 

Explanation 

Input data will remain the same for 
all pipelines 

In order to use the model with all pipelines, the input data must 
be similar in foimat and must have been gathered in the same 

context. 

All pipelines utilize four main stages 
of training 

Primaiy, Intermediate, Advanced, and the FRS are the phases 
common across all pipelines. 

All training pipelines can be 
decomposed into skills and functions 

Skills and functions must be identified for eveiy pipeline in 
order to operate with the model. 

Data values will change 

Different pipelines will supply unique values for user-defined 
data. As such, the model must not be hardcoded. 

GALE Methodology will be valid for 
all platforms 

The NA\\'CTSD methodology can be applied to all training 
pipelines. 

Model creation will not be done 
regularly, model manipulation will 
be. 

Once the pipeline model is created, it should remain valid until 
a syllabus change or update is made. Evaluting scenarios of 
downloading or offloading within the syllabus will occur on a 
regular basis. 

Table 2. 

Assumptions For Model Creation 


Tying all requirements, limitations, assumptions, and eonstraints together helped 
develop a final list of requirements. A list of these requirements mapped to the identified 
functions is provided in Table 3. 
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Function 

Requirement 

F.l 

Provide User 

Guidance 

Shall provide internal guidance capabiliU’to enable users with 
familiaritv" with the TOC effort to utilize the model 

F.1.1 

Infonn L ser 

Shall infonn user when user action is required 

Shall infonn user when incorrect inputs are made 

Shall infonn user when model is busv idle 

Shall infonn user prior to deleting anv data 

F.1.2 

Instruct User 

Shall instruct user when a specific sequence of events are required 
in order to properlv complete an action 

F.: 

Maintain 

Extensibilitv' 

Shall be capable of supporting all Xaval Aviation training pipelines 

Shall use XAICI compatible software 

F.:.i 

Accept User 
Confisuration 

Shall provide abilitv to change model configuration based on 

Shall utilize user input to provide model configuration 

F.:.: 

Accept User 
Parameters 

Shall utilize user defined parameters for model creation 

Shall support changes and updates to parameters during analvsis 

F.5 

Manipulate 

Data 

Shall support basic fonns of query either with resident E.xcel 
functionalitv or with 3'BA functionalitx' 

F.3.1 

Accept Data 
Input 

Shall accept user-defined data sets in an identified common format 

F.5.2 

Store Data 

Shall provide the abilitx’ to store data for future manipulation and 

F.5.5 

Process Data 

Shall utilize Excel and ^'BA for data processing 

Shall provide the abiliw to search and sort data according to user 
defined parameters 

F.4 

Proxade 

Analysis 

Shall support XAWCTSD KP ISP GALE methodologv 

Shall provide timelv analvsis results in a user-friendlv format 

Shall provide cost and proficiency variations from baseline 

Shall infonn user of breeched thresholds 

F.4.1 

Compare 

Scenarios 

Be operable by an individual with a baseline of knowledge in Xaval 

Aviation training 

Shall provide the ability to save multiple scenarios for comparison 

F.4.2 

Support 

Optimization 

Shall provide abilitv'to search for optimal training scenarios given 
desired cost or proficiency values as targets 

F.5 

Be 

Supportable 

Be maintainable by an individual with abox'e ax'erage computing 
skills ^programming; 

Shallbe executable on anyXaxy Marine Corps Intranet (XMCI) 
computer 


Table 3. Function / Requirement Mapping 


After identifying and understanding the system’s requirements, a process model 
was selected to guide the remainder of the effort. The next section describes the model 
selection and modification process. 
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c. 


SELECTING A GUIDING PROCESS MODEL 


The Systems Engineering (SE) process should be a frame of reference, tailored to 
the specific program in need (Blanchard and Fabrycky 2011). Figure 8 shows the tailored 
SE process implemented for the NAPA model design and prototype development. 



Figure 8. Tailored Waterfall Process For NAPA Modeling 


A tailored waterfall process model was chosen as the reference mindset for overall model 
design—every attempt would be made to complete each phase prior to starting the next 
one. Ideally, each phase in the process is carried out to completion in sequence until the 
product is delivered (Blanchard and Fabrycky 2011). This type of model was selected 
because the user needs were stable, allowing the requirements analysis to be completed 
up front. Additionally, a stable schedule for completion allowed concrete planning of 
each phase. Iterations were anticipated early in the design phase. Model design would be 
complete prior to the coding effort. Developmental testing had to be accomplished while 
prototyping the model in the design phase, but once prototyping and coding were 
complete, it would be provided to NAWCTSD HP/ISD for final testing and acceptance. 

With a guiding process in place, the final process in the conceptual stage was to 
establish a concept of operations. 
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D, OPERATIONAL CONCEPT 


Two use cases were identified to help substantiate the operational concept; create 
a new pipeline training analysis model; and update an existing pipeline training analysis 
model. 


1. Use-Case 1: Analyzing a Specific Training Scenario 

In the first use-case, the user would be starting with an unpopulated model and 
would have to accomplish all steps of model creation to begin the process. After the 
model was created, a specific scenario would be input into the model and the resultant 
outputs (proficiency and cost) would be displayed. In order to create a new model, and 
conduct the analysis, the following actions must take place: 

• The user defines the desired training pipeline by providing characteristics 
unique to it 

• The user also provides the specific pipeline data to support GALE 
methodology and analysis in a common format 

• The current syllabus is input to serve as a baseline from which to compare 
other training scenarios 

• Training phase models are generated and GALE methodology is applied to 
provide the user with a baseline proficiency and cost output 

• Once the model is created, the user inputs the training scenario for 
analysis 

• The difference in proficiency is displayed to the user 

• The cost difference is displayed to the user 

• The user saves the scenario for future reference 

• The user resets the model and repeats the scenario analysis until all 
scenarios are analyzed 

2. Use-Case 2: Searching for a Training Scenario That Provides Desired 
Proficiency Levels 

In this scenario, the user must search for the cost associated with providing the 
desired proficiency level. Additionally, the model has been previously created and must 
simply be reset before reuse: 

• The user saves all unchanged data to reuse in the model 
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• The user resets the proficiency level thresholds to the desired levels 

• The model reduces the likelihood of inadvertent data loss by informing 
user of the proposed changes and the consequences of the change 

• After consent, the model makes the changes and updates the model and is 
ready for analysis 

• The alternate training scenario is input into the model 

• The model provides proficiency outputs and highlights troubled areas 

• The user alters the training scenario until all desired proficiency levels are 
met 

• The user compares baseline training cost, with alternative cost to train 

Proposed data inputs and desired outputs for the operational concept, provided by 

NAWCTSD HP/ISD have been included in Appendix B. Understanding how the model 
would be utilized helped solidify all of the concept stage efforts and laid the groundwork 
necessary to transition into solution space, beginning with the design stage. 
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III. DESIGN AND DEVELOPMENT STAGE 


A. MODEL DESIGN 

1. Industry Best Practices for Application Design/Development 

John Walkenbach, the author of Excel 2010: Power Programming with VBA, 
(2010) defines a spreadsheet applieation as “a file that is designed so that someone other 
than the developer ean perform useful work without extensive training (101).” Although 
simple, this definition foeused the design and development effort and provided a eonstant 
reminder not to over eomplieate the model. 

In his book, Walkenbaeh also identifies charaeteristies of good spreadsheet 
applieations. To paraphrase his list, a good applieation should: 

• Help the end user perform a task that they may not be able to do otherwise 

• Provide an appropriate solution to the problem 

• Aeeomplish what it is supposed to 

• Produee aeeurate results and be free of bugs 

• Use appropriate and effieient methods and algorithms to aeeomplish its 
job 

• Trap errors before the user is foreed to deal with them 

• Not allow the user to delete or modify important eomponents aeeidentally 
(or intentionally) 

• Provide a clear and consistent user interface so the user always knows how 
to proceed 

• Properly document formulas, macros, and user interface elements to allow 
for subsequent changes if necessary 

• Be designed so that it can be modified in simple ways without making 
major changes 

• Provide an easily accessible “help” system that provides useful 
information on at least the major procedures 

• Be portable and able to run on any system that has the proper software 
Although not required, the NAPA model’s design process utilized these 

characteristics as heuristics for application development. 
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2. Design Concept 

The general eoneept during the design proeess was to ensure that the flow of 
information between the user and the model oeeurred in the eorreet order. A three-phase 
approaeh to ereating the model was implemented. Phase one started with ensuring the 
eorreet pipeline eonfiguration. Onee the user was satisfied with the eonfiguration, phase 
two leveraged user-defined inputs in phase one to ereate a pipeline speeifie parameters; 
parameters are defined as data that is eonfiguration-based. After the model is framed, 
baseline pipeline training events are filled-in during phase three. These three phases 
eombine to provide the eanvas on whieh to apply the GALE methodology. Onee GALE 
methodology is fused with pipeline speeifie data and training events, the aetual analysis 
ean be eondueted. 

3. Design Framework 

Understanding the design eoneept faeilitated the ereation of a framework that 
identified the aetual eontents, required inputs, and desired outputs of the model. The 
framework helped establish data requirements for the model and ereate basie page 
layouts. Eigure 9 graphieally represents the flow of data as it enters from external nodes 
(yellow) and flows through the model design (gray nodes). Arrows represent information 
flow direetion and identify what information is required ultimately to produee a 
representative pipeline model. 
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Figure 9. Basic Model Design Framework 
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The configuration (“Config”) page must provide the initial user-model interaction 
during phase one. Users must enter the data required to construct a pipeline model. Basic 
information, including the number of phases; the phase names; pipeline skills and desired 
proficiency levels; phase platforms; and student throughput formulate the basis of the 
pipeline model. 

In concept, a programmed macro transforms user-defined configurations into a 
“Parameters” page, where more data-gathering for the model would occur. The macro 
requires the input of the number of phases in training, what the phases were called, and 
the skills and functions associated with each phase to successfully create the page. 

With the Parameters page created and filled-in, another page is created by macro. 
The master database or “MasterDB” page utilizes both Config and Parameter page inputs 
to create a basic table, capable of accepting pipeline specific data from the user. All phase 
models are then based on the MasterDB design. 

Conceptually, the phase models serve as the location where most calculations 
occur. Each phase model, in turn, must provide baseline proficiency and cost values, as 
well as what-if proficiency and cost values to facilitate a comparison between the two. To 
support a single page input-output design, all phase models feed the “Download” page, 
where user-defined alterations in training can be immediately analyzed in terms of cost 
and skill proficiency. 

4, Coding 

Designing the code to be modular is commonly a good practice—it makes it 
scalable, extendable, and supportable. However, given the programming language, and 
the model framework established, an imperative programming style seemed appropriate 
to govern the code design. With imperative programming, individual subroutines alter the 
state of the model, requiring them to be run in a specific order for the model to be created 
properly. This supports the page / macro concept designed in the framework. 
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However, designing modularity into the eode was not abandoned. If aspeets of 
modularity eould be integrated into the design in it would improve the maintainability, 
sealability, and extendibility of the model. To aoeomplish this: 

• Funetions that would be used multiple times need to be established as 
external funetions aeeessible by all subroutines 

• Variables and eonstants must be defined up-front, and refereneed 
throughout the eoding proeess to reduee efforts required to update or alter 
the model 

• Individual subroutines must be defined by logieal boundaries in model 
funetionality 

• The required inputs and outputs of eaeh subroutine need to be eaptured to 
ensure future maintenanee efforts ean alter a subroutine without breaking 
the models overall funetionality 

Together, the design eoneept, model framework, and eode design provided a 
roadmap for model development. 

B. MODEL DEVELOPMENT 

Two prototypes were eonstrueted to verily model design eoneepts and appbeation 
of methodology prior to final model development. The first prototype was a proof of 
eoneept—it foeused on developing the proper spreadsheet functionality to support the 
required analysis. It was not designed to provide all of the required functions. The model 
was kept at a manageable size (10 blocks per phase instead of the typical 30-50 blocks). 
Controlled values were used in place of real data to facilitate rapid troubleshooting. 
Spreadsheet design and functionality were hard-coded to increase the speed of 
prototyping. Original outputs and screenshots of the first prototype are included in 
Appendix C. After the basic structure and logic of the design was verified, the focus 
turned to verification of model outputs. 

The second prototype utilized the basic structure and logic of the design and 
applied it to actual data sets provided for the Strike syllabus. Outputs were generated and 
verified with NAWCTSD HP/ISD personnel. Two main insights were found as a result of 
this effort: 

• The outputs of the model were consistent with NAWCTSD HP/ISD 
manual calculations. 
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• An after-market solver platform would be required to support training 
optimization efforts. 

The seeond insight eaused a re-evaluation of requirements, ultimately leading to 
stakeholders agreeing that pursuing the optimization eapability during this effort was 
eost-prohibitive. As sueh, the requirement to provide training optimization was removed. 
The design eoncept, framework, and verified developmental efforts were eombined to 
ereate the final NAPA model. The model was automated to guide a user through the input 
pages, ereate the training phase models based on those inputs, and support analysis 
efforts after ereation. VBA was used to automate Exeel funetionality. Inexperience with 
the VBA programming environment resulted in fragile code. To help address this, 
William Evans, an Operations Research student at NPS with a Computer Science 
undergraduate degree, provided assistance to strengthen the code design. Code 
strengthening efforts included: 

• Generalizing the code by removing “magic” number references (constant 
values that are hard-coded into the application without explanation) 

• Making use of global variables to improve the readability of the code and 
ease the maintainability of the model 

• Increasing the speed of the subroutines by utilizing more efficient coding 
procedures and practices 

• Increasing model extensibility by allowing more user-defined parameters 

• Providing in-application trouble shooting capability for the future 
maintainability of the code 

Once code strengthening efforts were complete, the model was ready for final 
verification. A complete description of the NAPA model is provided in Appendix D. 
Complete VBA code can be found in Appendix E. 

C. VERIFICATION AND VALIDATION 

1, Verifying Requirements Were Met 

Requirements and functions were mapped to final design elements of the NAPA 
model to ensure that no orphan requirements remained. The complete mapping of 
requirement to model element is provided in Appendix E. 
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To summarize, every requirement was satisfied, save one—optimization of 
training eould not be provided due to software limitations. Sinee optimization of training 
was a user requirement, the arehiteeture of the final model was designed to preserve the 
eapability to integrate it in the future. 

2, Verifying Model Performance 

Previous eoordination with the primary stakeholders during prototyping provided 
verifieation for the logie, design, and outputs of the model. The foeus of this effort was 
verifying funetionality added to address the overall extensibility of the model. Due to the 
size of the model, exhaustive eheeks were not feasible. Spot-eheeking different aspeets of 
automation were eondueted to ensure the model was performing as intended. These spot- 
eheeks, combined with properly verified outputs provided the confidence necessary to 
proceed with validation efforts. 

3. Stakeholder Model Validation 

NAWCTSD HP/ISD conducted the model validation efforts. They supported an 
active request by CNATRA to analyze a potential reduction in Primary phase flight hours 
in the Rotary training syllabus. Knowing that a reduction of flight hours would result in 
some proficiency degradation, CNATRA wanted to identify the difference in final 
proficiency if they chose different areas in the syllabus to take the hours from. Two 
scenarios were proposed: 

• A reduction of 8.5 hours in PA flights in the Primary phase 

• A reduction of 8.5 hours late in the RI flights in the Primary phase 

NAWCTSD HP/ISD populated the NAPA model with the Rotary training 

syllabus data and utilized it to analyze both scenarios. The NAPA model’s outputs 
allowed NAWCTSD HP/ISD to quickly identify that both scenarios significantly 
impacted the final proficiencies of four out of the eight skills in the Rotary training 
pipeline. This enabled NAWCTSD HP/ISD to inform CNATRA decision-makers about 
the potential impacts of their alternatives. NAWCTSD HP/ISD confirmed the outputs of 
the model in a final verification effort with their manual calculation methodology to 
ensure the outputs were accurate. 
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Once validated, the NAPA model was ready for delivery. NAWCTSD HP/ISD 
aeeepted ownership of the NAPA model in Mareh of 2013, and eurrently utilizes it for 
desktop analysis efforts. 
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IV. CONCLUSIONS 


The application of the SE process provided significant insight throughout the 
development of the NAPA model; it helped lay a solid foundation for the effort by 
concentrating on user needs and requirements; it provided the tools necessary to identify 
the model’s architecture that would support those requirements; and it helped design and 
develop a working model that satisfied those requirements. 

Success of the effort can ultimately be determined by the ability of the model to 
provide the capabilities desired by the user. Specifically, the model had to: 

• Determine the overall effect training hour reductions or alterations may 
have on the overall proficiency of graduating aircrew 

• Identify training combinations that satisfy utilization of different platforms 
to achieve the desired cost and proficiency levels. 

The model easily identifies proficiency alterations as a result of training hour reductions 

within the syllabus. Additionally, it allows users to analyze different phase / platform / 

training hour combinations to achieve desired levels of cost and proficiency. Based on 

providing user capabilities, the effort was a success. 

Another way to determine the “success” of the effort is to ask, “what might have 
been overlooked had a systems approach not been applied?” Three potential oversights 
were identified: 

• The model may have been designed to support the Strike pipeline only, 
and not all other training pipelines 

• The model may have been developed with a software suite not supportable 
logistically 

• The model may have been developed with architecture that did not support 
expansion of analysis capabilities 

The first potential oversight sounds almost trivial, but the effort taken to 
functionally decompose the system placed extensibility at the requirement forefront. 
Subsequently, the design for extensibility received the attention it needed throughout the 
process. Artifacts of this requirement are apparent in the architecture, design, and 
prototyping efforts taken to develop a properly extensible model. Early emphasis on this 
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requirement resulted in a model that can be used by any training pipeline, without any 
modification. This capability was demonstrated during validation efforts where 
NAWCTSD HP/ISD analyzed a different pipeline (Rotary training) with the NAPA model. 

The second potential oversight was also addressed in the requirements analysis 
process. Initially, after-market solving platforms were being discussed as potential 
suitable software suites. However, upon realizing that the model required NMCI 
compatibility and that user population may be diverse, the software constraint drove 
follow-on design and development efforts resulting in the use of an off-the-shelf product: 
Microsoft Excel. Once again, had this not been identified early in the process, significant 
re-work may have been necessary. 

Finally, the third potential oversight was addressed by recognizing the desire for 
future analysis capabilities and incorporating them into the architecture and design of the 
model. Realizing that after-market solvers may be utilized someday, the framework of the 
model was designed to accommodate typical optimization software requirements. With little 
programming re-work, the model can be run on after-market Excel-based solvers such as 
FrontlineSolver’s Risk Solver Pro or Real Options Valuation, Incorporated’s Risk Simulator. 
Additionally, the lack of data to support the offloading effort made supporting that portion of 
the analysis impossible. However, re-programming the final model to support that effort can 
be accomplished by simply following the framework already in place. 

Viewing this modeling effort through the eyes of a systems thinker increased the 
model’s performance on many different levels. But not everything can be considered 
successful. Part of an honest analysis of an effort includes determining what could have 
been done better. In retrospect, providing a detailed requirements traceability 
verification matrix (RVTM) would have made the verification and validation of the 
model much easier. This effort mapped elements of the model to requirements to ensure 
no orphans existed, but it did not provide a threshold and objective against which to 
verify. In this case, verification was accomplished by comparison of manual GAEE 
calculations with the NAPA model outputs and the primary stakeholder’s feedback 
served to validate the model. 
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Ultimately, the SE proeess worked. It helped provide a desktop model, eapable of 
faeilitating the analysis of Naval Aviation training to NAWCTSD HP/ISD. Provided in 
the eontext of the Strike training pipeline, this model met the stakeholder need and will 
hopefully eontinue to provide analytical service for years to come. 
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V. AREAS FOR FURTHER RESEARCH 


After developing the current model, recommendations can be made in an effort to 
improve the overall quality of information provided. 

A. SUPPORT OF OFFLOADING 

Supporting the other efficiency recognized during this analysis is crucial to seeing 
the “entire” training picture. The inability to incorporate offloading into the model can be 
eliminated as soon as data becomes available to support the effort. Completion of this 
additional effort will significantly improve the quality of information provided to 
decision-makers. 

B. TRAINING OPTIMIZATION 

The model does not support the optimization of training, but rather it provides a 
tool to determine whether or not a specific scenario satisfies the cost and proficiency 
requirements set by the user. In short, there could be more efficient ways to achieve the 
same output, but significant effort has to be exerted to achieve it through this tool. 
Having a tool that can look for optimal solutions is something that can be investigated in 
the future. Should money become available to support after-market solvers, efforts can be 
focused on adapting the NAPA model to accomplish this task. 

C. ALTERNATIVE METHODOLOGIES FOR ANALYSIS 

Capability frontiers may be looked at to determine what is possible given different 
input parameters. Finding feasible solutions that satisfice, or provide an acceptable 
solution, rather than optimize the training pipeline may allow decision-makers to make 
cost-comparisons and select a unique path toward fulfilling the Fleet proficiency 
requirements. 
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APPENDIX A: FUNCTIONAL ANALYSIS OF NAVAL AVIATION 
TRAINING (STRIKE PIPELINE) 


From a system perspective, Naval Aviation training can be described in terms of 
inputs, outputs, controls, and mechanisms. At the highest level, the function of training 
Naval Aviators converts students (inputs) into Naval Aviators and NFOs (outputs), by 
instructors through the use of training aircraft, simulators, and facilities (mechanisms), 
via the training syllabi to meet proficiency requirements set by the Fleet (controls). 
These attributes were captured in the IDEFO model of Naval Aviation training shown in 
Figure 10. 
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Figure 10. Top Level IDEFO Model of Naval Aviation Training 


The next step was to analyze the Strike training pipeline specifically. Figure 11 
provides a more detailed IDEFO model of a specific (Strike) training pipeline. 
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Syllabi 



Figure 11. IDEFO Detailed Model of the Strike Pipeline for Naval Aviators 


The funetion of condueting Primary training transforms Naval offieers selected as 
SNAs (inputs), into SNAs with basic flight skill proficiencies and knowledge of which 
training pipeline they will follow (outputs) controlled by the Primary syllabus, using 
instructors and the Primary platform, simulators, and Primary facilities as mechanisms. 

Intermediate flight training converts SNAs with basic flight skill proficiencies 
into one with proficiency increases in skills desired by their selected pipeline. Controls 
during the Intermediate function include the specific pipeline selected and the 
intermediate syllabus associated with that pipeline. Mechanisms for intermediate include 
the instructors and the pipeline specific platform, associated simulators, and facilities that 
instruction will take place in. A mechanism unique to the Intermediate and Advanced 
training functions is the SERGRAD. A SERGRAD is a selectively retained graduate who 
displays enough skill proficiency through training to immediately be asked to join the 
instructor cadre before proceeding onto the ERS. A SERGRAD can be a mechanism for 
either Intermediate or Advanced functions. 
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The Advanced training function finally transforms a SNA (input) into a 
designated Naval Aviator with a specific Fleet platform to operate (outputs). Similar 
controls and mechanisms help facilitate this function. 

The FRS function transforms a newly designated Naval Aviator into a Fleet 
Aviator using mechanisms similar to previous functions. The FRS training function is 
controlled by the selected Fleet platform and FRS syllabus associated with it. 
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APPENDIX B: ORIGINAL USER NEEDS STATEMENT AND 
INITIAL CONCEPT OF OPERATIONS 


A. USER NEEDS 

On July 23, 2012, in email communication, NAWCTSD HP/ISDs lead scientist. 
Dr. Joseph Sheehan provided a PowerPoint slide that captured initial stakeholder needs 
for the effort (Figure 12). 


Proficiency Prediction Tool GUI Options & Functionality 

* Variations of Basic Query 

- Given defined linkages, wha: is the level of predicted proficiencv for each skillAuncdon given a 
single proposed «vtiat-if' training opdmiutlon is executed 

- Given defined linkages, what is the level of predicted prohciencv for each skillAunction given 
several prop(»ed training operations opttmirations are executed 

* Search Block Metadata & Return Screened Results 

- Return blocks chat are a or s a user-defined block effectiveness value or cumulative time 

- Return block sets wherein proficiency changed a or s a given user-dehned value 

- Return block secs wherein proficiency acquisition rate is a or s a user-defined value 

• Sort Query Results 

- Rank returned blocks in ascending or descending order given user-selected option 

• Notify of Breached Thresholds 

- Warn when a proposed training operations opriniaarion results in a predicted negative 
proficiency displacement that is a a predefined acceptable proficiency loss 

- Warn when a proposed training operations optimization results in a predicted negative 
proficiency displacement that continues for an unacceptable cumulative time or blocks 

- Warn when a proposed compensatory training time input Is insufficient to decrease a negative 
proficiency displacement to an acceptable predefined level 

- Warn when prediction error is a an acceptable predehned threshold level 


Figure 12. Original Stakeholder Needs Doeumentation (From Joseph Sheehan, pers. 

eomm.) 


To expand on the slide; 

• Variations of Basic Query: The users wanted the model to be capable of 
analyzing individual downloading / offloading efforts as well as the 
cumulative effect of multiple downloading / offloading efforts. 

• Search Block Metadata and Return Screened Results: Having the data in a 
sortable list will allow the users to see which blocks have the highest rate 
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of return. Additionally, they ean see where the most hours are eurrently 
alloeated. 

• Sort Query Results: Users want to be able to rank the results 

• Notify of Breached Thresholds: Users want to be alerted if profieieney 
values drop below defined thresholds, or when syllabus alterations result 
in redueed profieieney. 

B, OPERATIONAL CONCEPT: DATA FLOW 

Use-ease seenarios eaptured the high-level eoneepts of NAWCTSD HP/ISDs 
vision of how the NAPA model would be utilized. Additional detail of the operational 
eoneept, in terms of what inputs are required, as well as what speeifie outputs are desired 
are provided in this seetion. Figure 13 shows the desired inputs and outputs of the model. 



Figure 13. User Coneept of Operations (After Joseph Sheehan, 2012 pers. eomm.) 


Inputs inelude the training syllabus, broken down in to training bloeks that 
support a Training Task List (TTL). The bloeks are mapped through learning objeetives 
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and skills and provided to the model as a vetted produet. The bloeks are also assigned a 
training effeetiveness rating for eaeh skill by SMEs. Media degrader values are also 
provided as a way to reduee the effeetiveness rating of a bloek if its moved from the 
original platform to one of lower capability. 

Outputs include a baseline proficiency curve for each skill, projected proficiency 
curves for the altered syllabus, and notification of any undesirable results based on user- 
defined parameters. 
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APPENDIX C: MODEL PROTOTYPES 


A. THE FIRST PROTOTYPE 

The first prototype was built entirely in Exeel, to provide proof-of-eoneept 
funetionality and GALE methodology support. Speeifieally, the design ineluded only 
three out of the eight skills for the Strike training syllabus; flight admin, aireraft handling, 
and air-to-air. The prototype utilized only ten bloeks per phase, and ineluded an attempt 
at optimization functionality. A partial screenshot example of the first prototype layout 
can be seen in Eigure 14. 
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Figure 14. Example of First Prototype Layout 
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The minimum, maximum, and optimal hours blocks were included in the first 
prototype to facilitate the optimization functionality of the model. Minimum hours would 
be based on a SME provided mandate to conduct a certain block of training—if the block 
were mandatory, a minimum of one hour would be required; however, if it were a 
downloaded flight, zero would be a possibility. Max hours were hard-coded to twice the 
baseline hours to cap the amount of proficiency one can achieve in a particular phase 
block—realistic scenarios would not allow a student to remain in a specific block for an 
unlimited amount of time. 

The first prototype provided graphical output of the baseline and reduced hour 
proficiency for pilots. An example of the graphical output of the first prototype is shown 
in Figure 15. 
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Figure 15. First Prototype Output Example 


The goal of the first prototype was not to provide actual analysis, but rather to verify that 
the modeling methodology. The first prototype was provided to NAWCTSD HP/ISD for 
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final analysis and approval. Upon acceptance of the model methodology, the seeond 
prototype effort began. 


B, THE SECOND PROTOTYPE 

The seeond prototype followed the design arehiteeture ereated during the SE 
proeess. As a general eoneept, the seeond prototype served as a statie example of the final 
produet. A statie eonfiguration or “Config” page was ereated and populated with Strike 
data. The Config page can be seen in Figure 16. 
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Figure 16. Config Page For Second Prototype 
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The function lists for each phase as well as the pipeline skill list were hard coded 
into the model to minimize prototype automation. 

Figure 17 shows a partial view of the static Parameters page. This page allows the 
user to input SME data; firewall proficiency values, and media degrader values. 
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Figure 17. Parameters Page for Seeond Prototype (Partial Example) 
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Of the four training phases only three—FRS, Advaneed, and Intermediate—are 
represented on the right of the page. Primary training was initially left out because 
downloading from Primary was not possible. In the final model, the Primary Phase was 
added back to allow future uploading analysis, should the need arise. 

The Master DB page leveraged Excel Table functionality and was where all 
training pipeline blocks were entered. Once data is input in the correct format, it can be 
identified by various tags and sorted to help with analysis later. Figure 18 shows a partial 
picture of the Master DB in table format. 
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Figure 18. Second Prototype MasterDB (Partial Example) 


55 












































The Download page is where most of the user-defined scenario input takes place. 
This is where training hours can be moved or downloaded between platforms. The 
Download page is combined with the four static phase models to provide the final 
training pipeline model. Figure 19 shows a partial view of the Download page. 


AQ3 - ( A 1 



Figure 19. Second Prototype Download Page (Partial Example) 

Static phase models were also created to make sure the layout supported 
automation. An example of a phase model is captured in Figure 20. 


56 




















































































Home 1 Insert Page 

Layout Formulas Data Review View Developer Design 











A Q 0 # 

S3 

^ Copy * 

Paste 

Calibri 

’ 11 

’ A* a’ 

— s Number ’ 

m 

1 Normal 

J Bad 


Good 

Neutral 



1 Z AutoSum ' 

B Z U • Hi » 

A- 

— = -= •“ t” ‘■iSMfiL.d .^Centei $ * 

•/« ’ *co Conditional Format 

1 Calculation 

1 

□ 

Explanatory... 

Input 

1 _ Insert 

Delete 

lil 

Format 

» A Clear • 

Sort & Find & 
Filter» Select ’ 

Editing 



Clipboard • 


Font 


1 

Alignment i» | 

Number • 



Stylci 





Cells 



AR6 



j6c 1 =(Parameters!SCSS-Parameters!SCS4)*[@[Baseline % Total] )+'Static Primary Page'!AR5 











E 

A 

B 

C 

D 


F 

1 G H 

1 1 

J 

K 


0 

P 

T 


U 

V Ai 

- 
















4 


Riorks H ModpI B 

l»ni BlorkinH Title 

D FiinrtinnB MerliiimD Fit nr Sim?D Baseline Hours B PrimarvD Baseline MinB Pri Min B Baseline Max B What If Honrs B Hour Difference B Dee AC 




0 


Primary 

NA 

FlightTraining Start 

0 None 

'n/a 


0 

0 

0 

0 

0 


0 

0 1 




1 

Pri 

Primary 

C21 

Contact Cockpit Procedures 

4T6UTD 

SIM 


3.9 

3.9 

1 

1 

7.8 


3.9 

0 i 

_l 

7 


2 

Pri 

Primary 

C22 

Contact £P Trainer 

5 T6 OFT 

SIM 


2.6 

2.6 

1 

1 

5.2 


2.6 

0 



3 

Pri 

Primary 

’C31 

Contact 

aIboft 

I 1 M 


2.6 

2.6 

1 

1 

5.2 


2.6 

0 



4 

Pri 

Primary 

C41 

Contact 

lo'T-eB 

'flt 


6 

6 

1 

1 

12 


6 

0 

10 


6 

Pri 

Primary 

121 

Basic Instruments 

1 T6 UTD 

SIM 


3.9 

3.9 

1 

1 

7.8 


3.9 

0 

11 


7 

Pri 

Primary 

C32 

Contact 

10T6 0FT 

SIM 


3.9 

3.9 

1 

1 

7.8 


3.9 

0 

12 


8 

Pri 

Primary 

1:42 

Contact 

10T-6B 

Ilt 


6.4 

6.4 

1 

1 

12.8 


6.4 

0 

13 


9 

Pri 

Primary 

’C43 

Day Contact 

' I 0 I- 6 B 

Ilt 


6.8 

6.8 

1 

1 

13.6 


6.8 

0 

14 


10 

Pri 

Primary 

C44 

Midphase Contact Check 

10T-6B 

Ilt 


1.7 

1.7 

1 

1 

3.4 


1.7 

0 

15 


11 

Pri 

Primary 

"cAS 

lontact Solo Fit 

^ 10T-6B 

Ilt 


1.5 

1.5 

1 

1 

3 


1.5 

0 

16 


12 

Pri 

Primary 

I 22 

Basic Instruments 

1 T6 UTD 

SIM 


3.9 

3.9 

1 

1 

7.8 


3.9 

0 

17 


13 

Pri 

Primary 

I 3 I 

Radio Instruments 

2T6 0FT 

SIM 


7.8 

7.8 

1 

1 

15.6 


7.8 

0 

IS 


14 

Pri 

Primary 

I 4 I 

Radio Instruments 

2T-6B 

Ilt 


6.4 

6.4 

1 

1 

12.8 


6.4 

0 

19 


15 

Pri 

Primary 

I 32 

Radio Instruments 

2'T6 0FT 

'siM 


6.5 

6.5 

1 

1 

13 


6.5 

0 

20 


16 

Pri 

Primary 

I 33 

Instrument Navigation 

2T6 0FT 

SIM 


2.6 

2.6 

1 

1 

5.2 


2.6 

0 

21 


17 

Pri 

Primary 

I 42 

Radio Instruments 

2T-6B 

Ilt 


6.4 

6.4 

1 

1 

12.8 


6.4 

0 

22 


18 

Pri 

’rimary 

I 43 

Instrument Navigation 

2 T-6B 

’flt 


8.5 

8.5 

1 

1 

17 


8.5 

0 

23 j 


19 

Pri 

’rimary 

I 44 

Instrument Check Flight 

8T-6B 

Ilt 


1.7 

1.7 

1 

1 

3.4 


1.7 

0 

24 


20 

Pri 

’rimary 

"CSB 

Contact 

^ loleOFT 

I1M 


2.6 

2.6 

1 

1 

5.2 


2.6 

0 

25 


21 

Pri 

’rimary 


Day Contact 

' I 0 I- 6 B 

Ilt 


6.8 

6.8 

1 

1 

13.6 


6.8 

0 

26 


22 

Pri 

’rimary 

C47 

Final Contact Check Flight 

10T-6B 

Ilt 


1.7 

1.7 

1 

1 

3.4 


1.7 

0 

271 


23 

Pri 

’rimary 

1:48 

Final Contact Solo 

10T-6B 

Ilt 


1.5 

1.5 

1 

1 

3 


1.5 

0 

28 


24 

Pri 

’rimary 

1:49 

UNKNOWN FLIGHT? NOT IN SYLl 

lol-BB 

Ilt 


1.5 

1.5 

1 

1 

3 


1.5 

0 

29 , 


25 

Pri 

'rimary 

lisi 

Day Navigation 

' sleOFT 

I1M 


1.3 

1.3 

1 

1 

2.6 


1.3 

0 

30 


26 

Pri 

’rimary 

1)32 

Night Navigation 

^ 3T6 0FT 

SIM 


1.3 

1.3^ 

1 

1 

2.6 


1.3 

0 

31 


27 

Pri 

’rimary 

IjAl 

Day Navigation 

^ 3T-6B 

)lt 


1.7 

1.7 

1 

1 

3.4 


1.7 

0 

32 , 


28 

Pri 

’rimary 

N42 

Night Navigation 

3 T-6B 

Ilt 


1.7 

1.7 

1 

1 

3.4 


1.7 

0 

33 


29 

Pri 

’rimary 

I3I 

Low Level 

' 7^6 OFT 

"siM 


1.3 

1.3 

1 

1 

2.6 


1.3 

0 

34 


30 

Pri 

’rimary 

I 4 I 

Low Level 

7T-6B 

Ilt 


3.2 

3.2 

1 

1 

6.4 


3.2 

0 

35 1 


31 

Pri 

’rimary 

I3I 

V 

Formation 

^ I 2 I 6 OFT 

IlM 


1.3 

1.3 

1 

1 

2.6 


1.3 

0 

36 


32 

Pri 

’rimary 

I 4 I 

r 

Formation 

12T-6B 

Ilt 


6.4 

6.4_ 

1 

1 

12.8 


6.4 _ 

0 

37 


33 

Pri 

’rimary 

I 42 

Formation 

12T-6B 

Ilt 


4.8 

4.8 

1 

1 

9.6 


4.8 

0 

3S 


34 

Pri 

’rimary 

I 43 

Formation Solo Flight 

” 12’t-6B 

Ilt 


1.6 

1.6' 

1 

1 

3.2 


1.6 

0 


Drectons Page Confiq Parameters Strike Param Filed In MssterDB , Static MasterDB Download Page , Static Prenary Page , Static Intermediate Page StaixAdvPaqe Static FRS Page 


Figure 20. Second Prototype Phase Model (Partial Example) 
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These models were ereated as Exeel tables to take advantage of the inherent 
funetionality of the table format. This translated direetly into the final model as 
diseoveries were made during this proeess that simplified the eoding proeess 
signifieantly. Speeifieally, table funetionality allows entire eolumns to be filled based on 
the eontents of the first eell. As a result, final eoding only had to input formulas into the 
top eell and it would automatieally fill the rest. 

Graphieal outputs of the seeond prototype were not optimal. At this point, the 
design of the final graphieal output was still in question. Developing an output that 
provided the information elearly and eoneisely to the user required multiple attempts. 
Figure 21 shows the output of the seeond prototype. 
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Figure 21. Skill Proficiency Output of Second Prototype 
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The horizontal lines provided Phase entry and exit levels. The general shape of 
the learning eurve showed profieieney gain. This output proved to be undesirable. 
Although the information was displayed, it was diffieult to interpret and understand. 
Looking at what was truly important to see—the entry and exit points of the phases as 
well as the final profieieney in eaeh skill—a new display for model outputs was designed 
into the final model. 
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APPENDIX D: FULL DESCRIPTION OF NAVAL AVIATION 
PROFICIENCY ANALYSIS MODEL 


An in-depth look into the final design of the Naval Aviation Profieieney Analysis 
(NAPA) model provides the insight necessary to ensure the system behaviors and 
requirements are met. The interfaces between the pages were facilitated primarily by 
VBA code. Appendix C contains the entire applications code for review. 

A. FINAL PAGE DESIGNS 

When users want to create a new NAPA model, they open the master file and find 
three pages; the Directions page, CONFIG page, and the Dropdown Menu Page. 
Equipped with training pipeline specifics, users systematically fill out the model and 
ultimately create a live worksheet capable of facilitating exploration of downloading 
events from one phase to another. In general, user-input cells are highlighted in yellow 
throughout most of the model for human interface considerations. Every page in the 
model has functionality that, together, provides the user with a simple way to analyze 
efficiency excursions. Detailed inspection of the final page designs accomplishes three 
things: it helps depict the model’s capabilities; it delineates the physical allocation of 
each requirement to a component of the model; and it describes the contribution each 
component has to the overall system behaviors required of the model. 

1. Pages Available When Creating A New Model 

The Directions page is designed as a quick reference for the user to understand 
what was required to make the model work. Basic user-interface information is supplied 
to help guide a user to creating a working model. This page helps provide a clear guide 
for user interface with the model. Additionally, it provides an easily accessible “help” 
function for the user. Once the user becomes familiar with the model, little interaction 
with this page would occur. An example of the Directions page is provided in Eigure 22. 
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DIreettoAS Page 


Figure 22. NAPA Model Directions Page 


Figure 22 only shows a portion of the directions provided on the page. 

The Drop Down List page (Figure 23) allows the user to input the cost per hour 
of operating different platforms and simulators. Since the Strike pipeline was the test 
pipeline for this effort, only Strike platform costs are shown. 
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Figure 23. Drop Down List Page 


To make the model extensible, this list had to be dynamic, to properly populate the rest of 
the model. If a platform was not listed it could be added without further modification to 
the model for utilization. Additionally, to keep the model up-to-date, the Drop Down 
List must be updated with the most recent operational costs of the platforms and 
simulators to maintain model validity. 

The CONFIG page (Figures 24 and 25) is where the model becomes 

fundamentally extensible. It contains a few crucial components that require user- 

definition for the model to properly be created. Specifically; 

The total number of phases must be defined. Initially, four phases were hard 
coded into the design based on an early assumption to scope the problem. 
However, providing a model with the capability to analyze more than four phases 
enhances the extensibility of the model and allows it to be utilized for future 
analysis efforts where follow-on Fleet phases of the training continuum may be 
added. Should greater than four phases of training ever be implemented, the 
graphical output of the model would have to be manually altered as the default 
graph changes. 

Phase names must be defined. This is where the model derives subsequent labels. 
Figure 24 shows the four common phase names defined although any user- 
defined names could be used and would propagate throughout the model. 

Annual throughput for the pipeline must be defined. This is where the model looks 
to assist in the cost analysis portion of the model. Improper identification of this 
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throughput would propagate inaccuracies throughout the cost analysis of the 
model. 

Pipeline Skills and threshold proficiency levels must be identified. Similar to the 
phase names, the user-defined list of skills is where the model looks to properly 
configure itself Figure 16 shows a completed Skill list and proficiency threshold 
for the Strike pipeline. 

Phase functions must be identified. This is where the model begins to build search 
capability for its media degrader values. 

Figure 24 depicts what the user would see immediately upon opening the page. 
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Figure 24. CONFIG Page Part I; Phases, Platforms, and Throughput 


The interaction between the Drop Down List and the CONFIG page is captured in Figure 
24, as user defined Platforms show up for selection in the platform column. 

Once completed, the user scrolls to the right to reveal the rest of the page, shown 
in Figure 25. This is where the rest of the user-defined input on the CONFIG page is 
input. 
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Figure 25. CONFIG Page Part II; Skills, Proficiency Thresholds, and Phase Functions 
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Once completed, a subroutine called “MakeParametersPageO” is called by depressing the 
“Make Parameters” button on the CONFIG page shown in Figure 24. 

2, The Parameters Page 

The Parameters page relies on CONFIG page inputs to be properly created. The 
Skill list is required to create the properly sized baseline proficiency or “firewall” table 
shown in Figure 26. 
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Figure 26. Parameters Page Part I; Baseline Proficiency Table 


The table also relies on the user-defined Phase names for its row labels. This table is 
where the baseline phase proficiency values provided by SME input would be captured. 

Once the baseline proficiency value table is filled out, the user has to fill out the 
media degrader tables on the page. This is where SME provided platform proficiency 
degrader values are tagged with the function they affect. Figure 27 shows an example of 
one of the four media degrader tables for the Strike syllabus. 
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Figure 27. Parameters Page Part II; Sample (1 of 4) Media Degrader Tables 

The media degrader tables are designed to support the potential for future “uploading” 
analysis as well. However, due to the faet that there is no data on uploading, the eolumns 
are effectively negated by zeroing out the column—essentially saying that there is NO 
value provided for moving a flight to a higher cost platform. When uploading data 
becomes available it can be quickly incorporated into the model for analysis. 

Upon completion, the MasterDB page is created by calling a subroutine titled 
“MakeMasterDBPageO” by pressing the appropriate user-interface button located on the 
page. 
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3, The MasterDB Page 

The MasterDB page is where the entire bloek strueture of the pipeline is input. 
Additionally, this is where the Mean Effeetiveness Ratings or MERs are first input into 
the model. An example of a blank MasterDB page is shown in Eigure 28. 
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Figure 28. Initial MasterDB Page 
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This is the first time that a deviation from the yellow-highlighted eell for user 
input appears. Exeel’s inherent table properties satisfy user needs and ereate system 
behaviors required to satisfy the requirements. After eonsulting with the users, the table 
format was aeeepted. 

Data for the Master DB page must contain the following values for the model to 
accept it and provide proper results: 

• The original Phase in which the block is completed 

• The Block ID or alpha-numeric block-identifier that ties directly to the 
phase syllabus. (Usually SME provided) 

• Title of the Block appears next to the Block ID for plain English 
identification 

• Phase function that the Block services is indicated 

• The platform in which each Block is completed 

• A block tag to identify it as a flight block or a simulator block (to help 
identify blocks for cost analysis purposes) 

• The syllabus baseline hours for each block is noted 

• The Mean Effectiveness Rating (MER) value that the block provides for 
each skill identified in the pipeline skill list 

Eilled out, the MasterDB becomes a sortable table that provides the mapping 
between block, platform, MER value, function. Media Degrader Value, and Skill. An 
example of the first 30 blocks of the Strike pipeline is shown in Eigure 29. 
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Figure 29. First 30 Blocks of Strike Master Database 
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Once the MasterDB page is filled, the phase models and Download Page are 
ereated by ealling a subroutine entitled “MakeRemainingPagesO” assigned to a button on 
the MasterDB page shown in Figure 29. 

4. Phase Models and Download Page 

An individual Model page is ereated for every user-defined phase. The models 
are generieally named to maintain the versatility of the model. An example of a phase 
model is shown in Figure 30. 
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Figure 30. Initial Phase Model Interface Example 
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Many columns containing background information and data manipulation are 
automatically hidden during the subroutine to make the output more user-friendly. Upon 
eompletion, only the bloek number and columns associated with baseline and what-if 
values are displayed. This allows the user to quiekly ereate a graphieal depiction of the 
data, should one be desired. The ability to quiekly graph these outputs also provides a 
quiek way to re-ereate the original GALE learning eurves. 

The Download page is where the majority of user interaetion takes plaee onee the 
final pages are ereated. There are three main seetions on the Download page: 

• Scenario input section. Loeated on the far left of the Download page, this 
seetion is where users input their what-if seenarios. This seetion takes 
advantage of inherent Excel table properties and allows filtering to focus 
on concentration areas. Additionally, eonditional formatting in the what-if 
column s will highlight when a ehange or differenee from the baseline has 
been entered. 

• Real-time analysis section. Eoeated on the top of the Download page, this 
seetion provides an instantaneous eost and hour differenee within the 
phases along with the differenee in skill profieiency eompared to the 
baseline. 

• Chart section. This seetion shows the 3-D eharts for baseline and what-if 
seenarios. 

The initial view of the Download page is shown in Eigure 31. 
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B. MODEL OUTPUTS 

1, Training Pipeline Baseline Output (Strike Example) 

The NAPA model provides Baseline skill profieiencies in both table and graphical 
formats (Figures 32 and 33 respectively). 
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Figure 32. NAPA Model Baseline Proficiency Table 


Both Baseline and “What If’ scenarios initially show 100% proficiency gain, 
indicating that no exploratory values have been input into the download page. 
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Figure 33. NAPA Model Output of Baseline Skill Proficiencies 


The graphical output plots the proficiency levels (vertical axis) of identified 


pipeline skills (horizontal axis) across chronological phase entry and exit points 
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throughout the pipeline (into page). This graphie enforees a eouple eritieal eomponents 
of the Strike training pipeline: 

• Similar to the manual example of the profieieney eurves provided by 
NAWCTSD HP/ISD, skill profieieney is gained at different rates 
throughout the training pipeline. Subsequently, reduetions or alterations in 
the syllabus at specifie times may have a greater effect on one skill’s 
proficiency gain than on another’s. 

• The baseline assumption is that the current pipeline provides 100% of the 
proficiency required for a pilot to become a productive member of the 
Fleet forces. 

The overall shape of the surface created by the varied proficiency gains depict 
where potential capability gaps exist. If proficiency gain in a skill is only provided in one 
phase, any change in that phase potentially creates an unrecoverable proficiency deficit in 
that skill. 


2. Downloading Example 

To provide an example of how the NAPA model reacts to a downloading 
scenario, almost ten hours from the FRS phase are selected to download to the Advanced 
phase. Specifically, Basic Fighter Maneuvers (BFM) blocks 162-166 are removed from 
the FRS phase and added to the Advanced phase. Figure 34 shows the Download page 
example. 
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Figure 34. Partial View of Download Page Contents During Scenario Analysis 
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A more detailed look into parts of the NAPA model reveals how it reaets to the 
seenario. Figure 35 focuses on the blocks that were altered and shows how the yellow 
highlights used by the model to depict an hour-for-hour block download in the scenario 
input section. 
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Figure 35. Portion of Download Page Depicting Downloaded BFM Blocks from the FRS 

to Advanced 


The What if chart (Figure 36) in the chart section of the Download page shows 
the skill proficiency levels resulting from downloading the BFM blocks. 
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Figure 36. Download Page What If Chart; Skill Proficiency Levels Resulting From 

Downloaded Blocks 


Like the baseline chart, the graphical output plots the proficiency levels (vertical 
axis) of identified pipeline skills (horizontal axis) across chronological phase entry and 
exit points throughout the pipeline (into page). The variation in output skill proficiencies 
resulting from the scenario shows the individual dependency each skill has with syllabus 
hours. 


In the real-time analysis section, both cost and hour difference resulting from the 
download is calculated. In this example, by moving 9.8 hours from the FRS phase to the 
Advanced phase, results in a savings of $62,970 per pilot. The total hours in the pipeline 
remain the same, but the downloaded hours are shifted from FRS to Advanced phases. 
The hour shifts as well as the cost savings can be seen in Figure 37 (part of the Download 
page). 
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Figure 37. Download Page Cost Table and Hours Table Resulting From Downloaded 

Blocks 


In Figure 38, proficiency threshold breeches are highlighted to indicate when the 
resulting skill proficiency drops below the user-defined threshold. Both air-to-air (A/A) 
and Sensor Employment (Sensor Emp) blocks show breeches in this scenario—the 
proficiency threshold was set for 95% in this example. 
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Eigure 38. Download Page Proficiency Table and An nual Cost Difference Resulting 

Prom Downloaded Blocks 


Additionally, the annual cost difference is provided to the user based on CONPIG page 
throughput values and cost differences associated with the specific scenario. 

The one-for-one download scenario—^where the same amount of block hours are 
moved into a different phase—^will almost always produce some level of proficiency 
degradation. In some cases, proficiency in skills may be reduced to unacceptable levels 
and may be un-recoverable without adding hours to maintain skill proficiency at 
minimum threshold levels. 
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3, Maintaining Threshold Levels 

This example shows how users might utilize the model to investigate a syllabus 
solution to maintain their minimum proficiency values. Using the previous download 
scenario as a starting point, this scenario will add hours where necessary to maintain the 
desired threshold levels. Figure 39 depicts what the user would see on the Download 
page during this type of scenario analysis. 
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Figure 39. Partial View of Download Page Contents 
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No highlighted cells in the real-time analysis section indicate that the thresholds for skill 
proficiencies are met. 

A closer look into the scenario input section (Figure 40) shows that additional 
hours have been added to the Advanced syllabus to compensate for the loss in proficiency 
in the Air-to-Air skill. 1.5 hours have been re-inserted into the FRS syllabus to increase 
the Sensor Employment skill proficiency above threshold levels. Numbers in the model 
are red, indicating a change in the number of hours in that block. 
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Figure 40. Original Download Scenario (Top) and Altered Scenario to Maintain 

Minimum Proficiency Values (Bottom) 


The following alterations in hours are made in this example: 

• Block 162 hours increased from 1.4 hours to 2 hours in advanced 

• Block 163 hours increased from 1.2 hours to 2 hours in advanced 

• Block 164-166 hours increased from 2.4 hours to 3 hours in advanced 

• Block 166 hours added from 0 to 1.5 hours in FRS 
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The altered scenario output is also graphically available in the chart section 
(Figure 41). 
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Figure 41. Download Page What If Chart Output 


The real-time analysis section shows the change in hours for the two affected 
phases. Figure 42 shows that 13 hours have been added to the advanced phase, but 8.3 
hours have been removed from the FRS phase, saving $34,890 per pilot. 
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Figure 42. Download Page Cost Table and Hour Table for Threshold Example 
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A close-up look at the rest of the real-time analysis section (Figure 43) shows that 
no proficiency values breeched the desired threshold (no highlights) and an annual cost 
savings of $5,408,420 based on a throughput of 155 pilots in the Strike pipeline. 
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Figure 43. Download Page Proficiency Table and Annual Cost Difference for Threshold 

Example 


The completed model is capable of supporting NAWCTSD HP/ISD efforts to 
analyze the effect that alterations in flight hours have on the proficiency of aircrew as 
well as the cost required to obtain that proficiency. 
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APPENDIX E: COMPLETE VBA APPLICATION CODE 


The VBA code is provided, in its entirety, for historical reference. The code is 
commented to help determine the functionality each subroutine provides the NAPA 
model. 


BEGIN CODE: 

Option Explicit 

‘ This DEBUGEEAG affects many steps: 

‘ (1) in MakeParametersPage, if Ealse then all dependent worksheets are 
‘ found/deleted; if True, only “Parameters” is found/deleted. 

‘ (2) in many functions, if Ealse then non-user-dependent worksheets are 
‘ hidden from view; if True, no worksheets are hidden 

‘ (3) in MakeMasterDB and MakeModel, if Ealse then non-user-dependent columns 
‘ are hidden; if True, none of the columns are hidden 
Public Const DEBUGEEAG As Boolean = Ealse 

‘ Starting cells for various pages 

Public Const STARTCEEE PARAMETERS As String = “C6” 

Public Const STARTCEEE MASTERDB As String = “C6” 

Public Const STARTCEEL DEPAGE As String = “A6” 

Public Const STARTCEEE MODEE As String = “C6” 

Public Const CPG_FUNCEEN As Integer = 40 

‘ These refer to the PhaseRef table on the Config page. 

Public Const PR PHASE As Integer = I 

Public Const PR PEATFORM As Integer = 2 

Public Const PR MAXHRFACTOR As Integer = 3 

Public Const PR COSTFET As Integer = 4 

Public Const PR COSTSIM As Integer = 5 

Public Const PR BEOCKSPERPHASE As Integer = 6 

Public Const PR BTN MASTERDB As String = “A2:B3” 

Public Const PR BTN MASTERDB HEEP As String = “C2” 

Public Const MDB BTN DEPAGE As String = “A2:C3” 

Public Const MDB BTN DEPAGE HEEP As String = “D2” 

Public Const MDB BEOCKS As Integer = I 
Public Const MDB PHASE As Integer = 2 
Public Const MDB BLOCKID As Integer = 3 
Public Const MDB TITEE As Integer = 4 
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Public Const MDB FUNCTION As Integer = 5 
Publie Const MDB MEDIUM As Integer = 6 
Publie Const MDB FLTORSIM As Integer = 7 
Publie Const MDB BASELINEHOURS As Integer = 8 
Publie Const MDB SKILES As Integer = 9 

Public Const MDB NUMCOE As Integer = 8 ‘ set to max of other MDB_* (except 
MDB SKIEES whieh is variable) 

‘ These refer to the DownloadTable on the Download Table page 

Publie Const DE BLOCKS As Integer = I 

Public Const DL PHASE As Integer = 2 

Publie Const DL BLOCKID As Integer = 3 

Publie Const DL PHASES As Integer = 4 

‘ these are defined to be AFTER the DL PHASES set of eolumns 

Public Const DL BASELINEHRS As Integer = I 

Publie Const DL TITLE As Integer = 2 

Publie Const DL COSTDIFF As Integer = 3 

Publie Const DL HOURDIFF As Integer = 4 

Publie Const DL ORIGPHASES As Integer = 5 

Publie Const DL BTN SAVE As String = “B2:D2” 

Publie Const DL_BTN_SAVE_HELP As String = “E2” 

Publie Const DL BTN RESET As String = “B4;D4” 

Publie Const DL BTN RESET HELP As String = “E4” 

Public Const DL CHART LEFT As Double = 2032 
Public Const DL CHART TOP As Double =115 
Publie Const DL CHART WIDTH As Double = 600 
Publie Const DL CHART HEIGHT As Double = 425 

Public Const SCENARIO TIMEDATE As String = “C2” 

Public Const FMT_ACCT As String = “_($* #,##0.00(#,##0.00);_($* 

Public SB Message As String 
Public SB Index As Integer 
Public SB HeartBeat As Variant 


‘ UpdateConfigPageO 
Sub UpdateConfigPageO 

Dim rPhaseCount As Range, rPhaseRef As Range, rFuncListStart As Range 
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Dim iIndexP As Integer, iindex As Integer 

Dim sPhasesO As String, sLineCounts() As String, sPhaseNames() As Variant 
Dim iOldCount As Integer 

Set rPhaseCount = Range(“PhaseCount”) 

If rPhaseCount. Value < 1 Then 
rPhaseCount. Value = 1 
End If 

Set rPhaseRef = Range(“PhaseRef’) 

Set rFuncListStart = Range(“FuneListStart”) 

‘ Phases Definition 

iOldCount = rPhaseRef End(xlDown).Row - rPhaseRef.Row + 1 
‘ReDim sPhaseNames(l To iOldCount) As Variant 

‘sPhaseNames = Application.Transpose(rPhaseRef.Resize(i01dCount, l).Value) 

‘ preserve the phase names in the FuneFist table 
rFuneFistStart.Offset(-l, l).Resize(eolumnsize:=i01dCount).Value = _ 
Appheation.Transpose(rPhaseRefResize(i01dCount, l).Value) 

With rPhaseRef CurrentRegion 
.ClearFormats 
.Validation.Delete 
End With 

rPhaseRef.Offset(0,3).Resize(WorksheetFunction.Max(rPhaseCount.Value, 
iOldCount), 5).ClearContents 

If iOldCount < rPhaseCount. Value Then 
‘ insert new-old rows after old 

rPhaseRef Offset(iOldCount,0).Resize(rowsize:=rPhaseCount.Value - 
iOldCount).Insert shift:=xlDown 

For iIndexP = iOldCount + 1 To rPhaseCount.Value 
rPhaseRef(iIndexP, l).Value = “Phase “ & iIndexP 
Next iIndexP 

Elself iOldCount > rPhaseCount.Value Then 
‘ insert 1 row after new 

rPhaseRef.Offset(rPhaseCount.Value, 0).Resize(rowsize:=l).Insert shift:=xlDown 
End If 

Set rPhaseRef = Range(“PhaseRef’) 
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‘ formulas for the non-user-editable cells 
For iIndexP = 1 To rPhaseCount.Value 
If rPhaseRef(iIndexP, l).Value = ““ Then 

rPhaseRef(iIndexP, l).Value = “Phase “ & iIndexP 
End If 

With rPhaseRefOffset(IIndexP - I, 3).Resize(I, 5) 

.FormulaRICI = Array (_ 

“=IF(ISTEXT(RC[-2]), VFOOKUP(RC[-2], PFATFORMEIST, 2, FAESE), 

~ “=IF(ISTEXT(RC[-3]), VEOOKUP(RC[-3], PFATFORMEIST, 3, FAESE), 

~ “=IF(ISTEXT(RC[-5]), COlJNTA(OFFSET(FuncEistStart,0,MATCH(RC[-5], 
INDEX(PhaseRef, 0, I), 0), 999, I)), 

“=IF(AND(ISNUMBER(RC[-3]), ISNUMBER(R” & rPhaseRef Row & “C[- 
3])), RC[-3] / R” & rPhaseRef Row & “C[-3], _ 

“=IF(AND(ISNUMBER(RC[-3]), ISNUMBER(R” & rPhaseRef Row & “C[- 
3])), RC[-3] / R” & rPhaseRef Row & “C[-3], 

‘.FormulaRICI = .Value 
End With 
Next IIndexP 

Call FormatTable(rPhaseRef, iNumDigits:=2) 

‘ remove the color-fill that FormatTable puts for the columns we don’t want user- 
editable 

With rPhaseRef Offset(0, 3).Resize(columnsize:=5).Interior 
.Pattern = xlNone 
.TintAndShade = 0 
.PatternTintAndShade = 0 
End With 

With rPhaseRef Offset(0, l).Resize(rPhaseCount.Value, l).Vahdation 
.Delete 

.Add Type:=xlValidateEist, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, 
Formulal :=“=INDEX(PEATFORMLIST,0,1)” 

.IgnoreBlank = True 
.InCellDropdown = True 
.Showinput = True 
.ShowError = True 
End With 

‘ $ Fit and $ Sim columns, formatted accounting-style 

rPhaseRef.Offset(0, 3).Resize(columnsize:=2).NumberFormat = FMT ACCT 
rPhaseRef.Offset(0, 5).Resize(columnsize:=l).NumberFormat = “0” 
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‘ Pipeline Skills 
‘ Funetion List 

With rFuneListStart.CurrentRegion 
•ClearFormats 
•Value = .Value 
End With 

‘ Add a eolumn before the extra eolumn(s) so that it is not formatted in the table. 

If iOldCount < rPhaseCount.Value Then 
‘ insert new-old eolumns after old 

rFunoListStart.Offset(0, i01dCount+ l).Resize(oolumnsize:=rPhaseCount.Value - 
i01dCount).EntireColumn.Insert shift:=xlToRight 
Elself iOldCount > rPhaseCount.Value Then 
‘ insert 1 row after new 
rPuneEistStart.Offset(0,rPhaseCount. Value 
l).Resize(eolumnsize:=l).EntireColumn.Insert shift:=xlToRight 
End If 

‘ Clear all pre-existing range names of “EuneEist#” and redefine. 

‘ (This ensures we don’t have unneeessary names floating around.) 

Eor iindex = AetiveWorkbook.Names.Count To 1 Step -1 

If Mid(AetiveWorkbook.Names(iIndex).Name, I, 8) = “EuneEist” And_ 
AetiveWorkbook.Names(iIndex).Name <> “EuneEistStart” Then 
AetiveWorkbook.Names(iIndex).Delete 
End If 
Next iindex 

ReDim sPhases(I To rPhaseCount.Value) As String 
Dim sEineCount As String ‘ TODO 
sEineCount = ““ 

Eor iIndexP = I To rPhaseCount.Value 
AetiveWorkbook.Names.Add _ 

Name:=“PuneEist” & iIndexP, _ 

RefersTo:=“=OPPSET(Config!” & rPuneEistStart.Offset(0, iIndexP).Address 
& 0, 0, COUNTA(Config!” & _ 

rPuneEistStart.Offset(0, iIndexP).EntireColumn.Address &“)-!, 1)” 
sPhases(ilndexP) = “=INDEX(PhaseRef, “ & iIndexP & 1)” 

sEineCount = sEineCount & ISTEXT(RC[“ & iIndexP & “])” 

Next iIndexP 

‘ This will BREAK if this eolumn mysteriously finds itself empty ... 

‘ Well, not break, but it will fill this eolumn in AEE ROWS IN THE WORKSHEET 
‘ with this formula. Definitely not what we want/need, not eertain if the 
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‘ computer will do it nicely and/or be able to recover. (In XL2010, that would 
‘ fdl 1,048,576 rows.) 

rFuncListStart.Offset(l, 0).Resize(rowsize:=CFG_FUNCLEN - l).FonnulaRlCl 
“=IF(OR(“ & Mid(sLineCount, 2) & “), R[-1]C + 1, 

With rFuncListStart.Offset(-l, l).Resize(columnsize:=rPhaseCount.Value) 
.Value = sPhases 
.Formula = .Value 
End With 

Call EormatTable(rEuncEistStart.Offset(0,l).Resize(CEG_EUNCEEN, 
rPhaseCount.Value), iNumDigits:=2) 

End Sub 

‘ MakeParametersPageO 

‘ Prereq: Config page properly and completely fdled out. 

‘ Result: Deletes, recreates, and populates the Parameters page. 

‘ Note: the following pages depend on this data and therefore are also deleted 
‘ when the Parameters page is deleted: 

‘ MasterDB, Download Page, {Primary,Intermediate,Advanced,PRS} Model 

Sub MakeParametersPageO 
Dim saveDisplayAlerts As Boolean 

Dim bPageExists As Boolean, rMBRet As VbMsgBoxResult 

Dim wsParms As Worksheet 

Dim rSkillsEist As Range, rPhaseRef As Range 

Dim rPuncEist() As Range 

Dim rPirewalls As Range 

Dim rDegradesO As Range 

Dim sPhase As String 

Dim iindex As Integer, ilndex2 As Integer 

Application.ScreenUpdating = Ealse 
saveDisplay Alerts = Application.Display Alerts 

Set rSkillsEist = Range(“SkillsEist”) 

Set rPhaseRef = Range(“PhaseRef’) 

ReDim rPuncEist(rPhaseRef.Rows.Count) As Range 
ReDim rDegrades(rPhaseRef.Rows.Count) As Range 

Eor iindex = I To rPhaseRef Rows. Count 
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Set rFuncList(ilndex) = Range(“FuncList” & iindex) 

Next iindex 

‘ Cheek for the existence of all dependent worksheets. 

‘ (If DEBUGFLAG, only check Parameters, all others ignore.) 
bPagcExists = Ealse 

bPagcExists = bPageExists Or WorksheetExists(“Parameters”) 

If (Not DEBUGEEAG) Then 

bPagcExists = bPagcExists Or WorksheetExists(“MasterDB”) 
bPageExists = bPagcExists Or WorksheetExists(“Download Page”) 

Eor iindex = 1 To rPhaseRef Rows.Count 

bPageExists = bPageExists Or WorksheetExists(“Model” & iindex) 

Next iindex 
End If 

‘ Act on the existence of at least one worksheet... the user isn’t notified of 
‘ the specific worksheet, assuming they can figure it out. 

If bPageExists Then 

rMBRet = MsgBox(“Regenerating the Parameters worksheet will change results in 
several other worksheets,” & _ 

“some of which are present. In order to continue, these worksheets will be 
deleted.” & vbCrEf & _ 

“[ Parameters, MasterDB, Download Page, and Model* ]” & _ 
vbCrEf& vbCrEf&_ 

“Is that okay?” & _ 
vbCrEf& vbCrEf&_ 

“If not, click ““No”“ and back up the relevant tabs before trying this 

again.,” _ 

Buttons:=vbYesNo Or vbQuestion Or vbDefaultButton2, Title:=“Delete 
Existing Pages?”) 

‘ vbYesNo gives the two buttons 

‘ vbQuestion adds a question-mark icon (vbinformation is another) 

‘ vbDefaultButton? means default to the second button in case the user hits enter 
right away 

‘ (i.e., default to *not* changing things) 

If rMBRet = vbNo Then 
Exit Sub 
Else 

Application.DisplayAlerts = Ealse 
If WorksheetExists(“Parameters”) Then 
Sheets(“Parameters”) .Delete 
End If ‘ If WorksheetExists(“Parameters”) ... 

If (Not DEBUGEEAG) Then 
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If WorksheetExists(“MasterDB”) Then 
Sheets(“MasterDB”).Delete 
End If ‘ If WorksheetExists(“MasterDB”) ... 

If WorksheetExists(“Download Page”) Then 
Sheets(“Download Page”).Delete 
End If ‘ If WorksheetExists(“Download Page”)... 

Eor iindex = 1 To rPhaseRef Rows.Count 
If WorksheetExists(“Model” & iindex) Then 
Sheets(“Modef’ & iIndex).Delete 
End If ‘ If WorksheetExists(“Model” & iindex) ... 

Next iindex 
End If 

Applieation.Display Alerts = saveDisplay Alerts 
End If ‘ If rMBRet = vbNo ... 

End If ‘ If bPageExists ... 

Set wsParms = Sheets.Add(, after:=wsConfig) 
wsParms.Name = “Parameters” 

Set rPirewalls = wsParms.Range(STARTCEEE_PARAMETERS).Resize(2 * 
rPhaseRef.Rows.Count, rSkillsEist.Rows.Count) 
rSkillsEist.Resize(, l).Copy 

rPirewalls.Offset(-l, 0).Resize(l).PasteSpecial xlPasteValues,, Ealse, True 
‘ SkipBlanks:=Palse, Transpose:=True 

Eor iindex = 1 To rPhaseRef Rows. Count 

rPirewalls.Offset(2 * (iindex - 1), -l).Resize(2, 1) = _ 

Appheation.Transpose(Array(rPhaseRef(iIndex, 1) & “ Enter,” _ 
rPhaseRef(iIndex, 1) & “ Exit”)) 

Next iindex 

rPirewalls.Name = “Pirewalls” 

rPirewalls.ColumnWidth = 12.57 ‘ MAGIC NUMBER 

rPirewalls.Offset(0, -l).Resize(l, l).EntireColumn.autoIit 

Call PormatTable(rPirewalls, bDataEntry:=True, iNumDigits:=4) 

‘ Set up each DEGRADE VALUES table 

Eor iindex = rPhaseRef.Rows.Count To 1 Step -1 
If iindex = rPhaseRef.Rows.Count Then 
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Set rDegrades(ilndex) = rFirewalls.Offset(0, rSkillsList.Rows.Count + 
l).Resize(rFuncList(iIndex).Rows.Count, 2 + 2 * rPhaseRef.Rows.Count) 

Else 

‘ magie number: 5 = 1 + # of rows between eaeh DEG bloek 
Set rDegrades(ilndex) = rDegrades(iIndex + l).End(xlDown).Offset(5, 
0).Resize(rEuneEist(iIndex).Rows.Count, 2 + 2 * rPhaseRef.Rows.Count) 

End If 

rDegrades(iIndex).Name = “Degrades” & iindex 
sPhase = rPhaseRef(iindex, I) 

With rDegrades(iIndex).Resize(I, I) 

.Offset(-3, 2) = sPhase & “ MEDIA DEGRADES TO ...” 

Eor ilndex2 = rPhaseRef.Rows.Count To I Step - I 

.Offset(-2, 2 * (rPhaseRef Rows.Count - ilndex2 + I)) = “ & 

rPhaseRef(iIndex2, I) 

.Offset(-2, 2 * (rPhaseRef Rows.Count - ilndex2 + 
I)).Resize(oolumnsize:=2).Merge 

.Offset(-I, 2 * (rPhaseRefRows.Count - ilndex2 + I)).Resize(I, 2) = 
Array(“Plt,” “Sim”) 

Next ilndex2 

.Offset(-I, 0).Resize(I, 2) = Array(“#,” “Eunction”) 

End With 

rDegrades(ilndex).Resize(rEuneEist(iIndex).Rows.Count, I).Value = 
Range(“EunoEistStart”).Resize(rEunoEist(iIndex).Rows.Count, I).Value 

rDegrades(iIndex).Offset(0, I).Resize(, I).Value = rEuncEist(iIndex).Value 
Call EormatTable(rDegrades(iIndex).Offset(0, 2).Resize(, 2 * 
rPhaseRef.Rows.Count), bDataEntry:=True, iNumDigits:=2) 
rDegrades(iIndex).Offset(0, 2).NumberPormat = “0.00” 

Next iindex 

‘ Cleanup 

rDegrades(l).Resize(l, 2).EntireColumn.autofit 

rDegrades(l).Offset(0, 2).ColumnWidth = 8 ‘ magie number: 8, arbitrary 

‘ Add the button 

Dim btnMasterDB As Button 

With Range(PR_BTN_MASTERDB) 

Set btnMasterDB = ActiveSheet.Buttons.Add(.Eeft, .Top, .Width, .Height) 
End With 
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btnMasterDB.OnAction = “MakeMasterDBPage” 
btnMasterDB.Characters.Text = “Make Master DB Worksheet” 

With Range(PR_BTN_MASTERDB_HELP) 

.Value = “?” 

.Horizontal Alignment = xlCenter 

.AddComment (“Pill out the table of Enter/Exit table as well” & vbCrEf & _ 

“the “ & rPhaseRef Rows.Count & “ tables for media degrades.” & vbCrEf 

&_ 

vbCrEf&_ 

“When complete, click this button to continue.”) 
.Comment.Shape.TextPrame.AutoSize = True 
End With 

‘ Restore control to the user 
rPirewalls(l, 1). Select 
wsParms. Activate 

Application.CutCopyMode = Palse 
Application.Display Alerts = saveDisplay Alerts 
Application.ScreenUpdating = True 
End Sub 


‘ MakeMasterDBPageO 

‘ Prereq: Config/Parameters page properly and completely filled out. 

‘ Result: Deletes, recreates, and populates the MasterDB page, only 
‘ including those column the user needs to edit; all other columns 
‘ are added in MakeDownloadPage() 

‘ Note: the following pages depend on this data and therefore are also deleted 
‘ when the MasterDB page is deleted: 

‘ Download Page, {Primary,Intermediate,Advanced,PRS} Model 
Sub MakeMasterDBPageO 

Dim saveDisplay Alerts As Boolean, saveSelectionW As Worksheet, saveSelectionR 
As Range 

Dim bPageExists As Boolean, rMBRet As VbMsgBoxResult 

Dim wsMasterDB As Worksheet 

Dim rSkillsEist As Range, rPhaseRef As Range 

Dim iindex As Integer, iIndexP As Integer, iIndexS As Integer 
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Application.ScreenUpdating = False 
Set saveSeleetionW = Seleetion.Worksheet 
Set saveSeleetionR = Selection 
saveDisplay Alerts = Application.Display Alerts 

Set rSkillsList = Range(“SkillsList”) 

Set rPhaseRef = Range(“PhaseRef’) 

‘ Check for the existence of all dependent worksheets. 

‘ (If DEBUGFLAG, only check MasterDB, all others ignore.) 
bPageExists = Ealse 

bPagcExists = bPageExists Or WorksheetExists(“MasterDB”) 

If (Not DEBUGELAG) Then 

bPageExists = bPageExists Or WorksheetExists(“Download Page”) 

Eor iindex = I To rPhaseRef Rows. Count 

bPageExists = bPageExists Or WorksheetExists(rPhaseRef(iindex, PR_PHASE) 
& “ Model”) 

Next iindex 
End If 

‘ Act on the existence of at least one worksheet... the user isn’t notified of 
‘ the specific worksheet, assuming they can figure it out. 

If bPageExists Then 

rMBRet = MsgBox(“Generating the MasterDB worksheet will change results in 
several other worksheets,” & _ 

“some of which are present. In order to continue, these worksheets will be 
deleted.” & vbCrLf & _ 

“[ MasterDB, Download Page, and all Model pages ]” & _ 
vbCrEf& vbCrEf&_ 

“Is that okay?” & _ 
vbCrEf& vbCrEf&_ 

“If not, click ““No”“ and back up the relevant tabs before trying this 

again.,” _ 

Buttons:=vbYesNo Or vbQuestion Or vbDefaultButton2, Title:=“Delete 
Existing Pages?”) 

‘ vbYesNo gives the two buttons 

‘ vbQuestion adds a question-mark icon (vbinformation is another) 

‘ vbDefaultButton? means default to the second button in case the user hits enter 
right away 

‘ (i.e., default to *not* changing things) 

If rMBRet = vbNo Then 
Exit Sub 
Else 

Application.DisplayAlerts = Ealse 
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If WorksheetExists(“MasterDB”) Then 
Sheets(“MasterDB”).Delete 
End If ‘ If WorksheetExists(“MasterDB”) ... 

If (Not DEBUGEEAG) Then 

If WorksheetExists(“Download Page”) Then 
Sheets(“Download Page”).Delete 
End If ‘ If WorksheetExists(“Download Page”) ... 

Eor iindex = 1 To rPhaseRef Rows.Count 
If WorksheetExists(“Model” & iindex) Then 
Sheets(“Modef’ & iIndex).Delete 
End If ‘ If WorksheetExists(“Model” & iindex) ... 

Next iindex 
End If 

Applieation.Display Alerts = saveDisplay Alerts 
End If ‘ If rMBRet = vbNo ... 

End If ‘ If bPageExists ... 

Set wsMasterDB = Sheets.Add(, after:=Sheets(“Parameters”)) 
wsMasterDB.Name = “MasterDB” 

With wsMasterDB.Range(STARTCEEE_MASTERDB).Offset(0, -1) 

.Offset(, MDB_BLOCKS).Resize(l, MDB NUMCOE).Value = _ 

Array(“Bloeks,” “Phase,” “Block ID,” “Title,” “Eunction,” “Medium,” “Elt or 
Sim,” “Baseline Hours”) 

Eor iIndexS = 1 To rSkillsEist.Rows.Count 
With .Offset(, MDB SKIEES + iIndexS - 1) 

.Value = “Skill “ & iIndexS 
.AddComment Text:=rSkillsEist(iIndexS, l).Value 
End With 
Next iIndexS 
End With 

wsMasterDB.EistObjects.Add(xlSrcRange, _ 

Range(STARTCEEE_MASTERDB, 

Range(STARTCEEE_MASTERDB).CurrentRegion),, xlYes).Name = “MasterTable” 
rSkillsEist.Resize(, l).Copy 

wsMasterDB.Range(STARTCEEE_MASTERDB).Offset(-l, MDB SKIEES - 
l).PasteSpecial xlPasteValues,, SkipBlanks:=Ealse, Transpose:=True 
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MsgBox “Please fill in this master database with appropriate data.,” 

Buttons:=vbInfonnation 

‘ vbinformation adds an info “i” icon (vbQuestion is another) 

‘ Set up the continuation button 
Dim btnRemainder As Button 

With Range(MDB_BTN_DLPAGE) 

Set btnRemainder = ActiveSheet.Buttons.Add(.Left, .Top, .Width, .Height) 

End With 

btnRemainder.OnAction = “MakeRemainingPages” 
btnRemainder.Characters.Text = “Make Remaining Pages” 

With Range(MDB_BTN_DLPAGE_HELP) 

.Value = “?” 

.Horizontal Alignment = xlCenter 
.AddComment (“Pill out the Master DB.” & vbCrLf & _ 
vbCrLf&_ 

“When complete, click this button to make the remainder of the model.”) 
.Comment.Shape.TextPrame.AutoSize = True 
End With 

‘ Restore control to the user. 

‘ Two alternatives for handling the selection; 

‘ (1) Ensure the previous selection is selected 
‘ (2) Select the first cell for data entry in MasterDB 
wsMasterDB .Activate 

wsMasterDB.Range(STARTCELL_MASTERDB).Offset(l, 0).Select 

Application.CutCopyMode = Palse 
Application.Display Alerts = saveDisplay Alerts 
Apphcation.ScreenUpdating = True 
End Sub 


‘ MakeRemainingPagesO 

‘ Prereq: Config, Parameters, and MasterDB pages properly and completely filled out. 
‘ Result: Adds columns to the MasterDB page/range/table; 

‘ Optionally hides new columns ; 

‘ Optionally deletes and recreates the Download Page and all Model pages. 

‘ Note: the following pages depend on this data and therefore are also deleted 
‘ when the MasterDB page is modified: 


99 



‘ {Primaryintermediate,Advanced,FRS} Model 
Sub MakeRemainingPagesO 

Dim saveDisplayAlerts As Boolean, saveSelectionW As Worksheet, saveSelectionR 
As Range 

Dim bPageExists As Boolean, rMBRet As VbMsgBoxResult 

Dim wsMasterDB As Worksheet, wsDownloadPage As Worksheet 

Dim rNewColumns As Range 

Dim rSkillsList As Range, rPhaseRef As Range 

Dim sFormulaFlt As String, sFormulaSim As String, sFormulaMax As String 
Dim iindex As Integer, iIndexS As Integer, iIndexP As Integer, iOffset As Integer 

Dim rFirewalls As Range 

Dim rDownloadXableRange As Range 

Dim iNumRows As Integer, iNumCols As Integer, sTmp As String 
Dim rXmp As Range ‘ for iterating over things ... 

Dim rDifffable As Range, rBaselineXable As Range, rWhatIfXable As Range 
Dim rHoursComparison As Range, rAnnualCostDiff As Range 

Dim rCostData As Range, rHoursData As Range 

Application.ScreenUpdating = False 
saveDisplay Alerts = Application.Display Alerts 

Call Statusinitiate 

Set wsMasterDB = Sheets(“MasterDB”) 

Set rSkillsFist = Range(“SkillsFist”) 

Set rPhaseRef = Range(“PhaseRef’) 

Set rFirewalls = Range(“Firewalls”) 

Call StatusUpdate(“Checking for existing tables ...”) 

‘ Check for the existence of all dependent worksheets. 

‘ (If DFBUGFFAG, only check MasterDB, all others ignore.) 
bPageFxists = False 

‘ this checks if MasterDB has already been modified/refined/augmented 
bPageExists = bPageExists Or Not 

wsMasterDB.FistObjects( 1).HeaderRowRange.Find(“Cost”) Is Nothing 
bPageExists = bPageExists Or WorksheetExists(“Download Page”) 

If (Not DFBUGFFAG) Xhen 

For iIndexP = I Xo rPhaseRef Rows.Count 

bPageExists = bPageExists Or WorksheetExists(“Model” & iIndexP) 
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Next iIndexP 
End If 

‘ Act on the existence of at least one worksheet... the user isn’t notified of 
‘ the specific worksheet, assuming they can figure it out. 

If bPageExists Then 

rMBRet = MsgBox(“Creating the Download Page worksheet will change results in 
several other worksheets,” & _ 

“some of which are present. In order to continue, these worksheets will be 
deleted.” & vbCrEf & _ 

“[ (changes to) MasterDB, Download Page, and all Model pages ]” & _ 
vbCrEf& vbCrEf&_ 

“Is that okay?” & _ 
vbCrEf& vbCrEf&_ 

“If not, click ““No”“ and back up the relevant tabs before trying this 

again.,” _ 

Buttons:=vbYesNo Or vbQuestion Or vbDefaultButton2, Title:=“Delete 
Existing Pages?”) 

‘ perhaps this will make the window go away 
Application.ScreenUpdating = True 
Application.ScreenUpdating = Ealse 
‘ vbYesNo gives the two buttons 

‘ vbQuestion adds a question-mark icon (vbinformation is another) 

‘ vbDefaultButton? means default to the second button in case the user hits enter 
right away 

‘ (i.e., default to *not* changing things) 

If rMBRet = vbNo Then 
Exit Sub 
Else 

Application.DisplayAlerts = Ealse 

‘ if “Cost” exists, remove it and everything to the right in this table 
On Error GoTo Skip: 

Dim iRow As Integer 

iRow = Application.Match(“Cost,” Range(“MasterDB!MasterTable”).Rows(0), 

0 ) 

Range(Range(“MasterDB!MasterTable”).Offset(-l, iRow - l).Resize(l, 1), _ 
Range(“MasterDB!MasterTable”).Offset(-l, iRow - l).Resize(l, 
l).End(xlToRight)).EntireColumn.Delete 
Skip: 

On Error GoTo 0 

If WorksheetExists(“Download Page”) Then 
Sheets(“Download Page”).Delete 
End If ‘ If WorksheetExists(“Download Page”) ... 
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If (Not DEBUGFLAG) Then 

For iIndexP = 1 To rPhaseRef Rows.Count 
If WorksheetExists(“Model” & iIndexP) Then 
Sheets(“Modef’ & iIndexP).Delete 
End If ‘ If WorksheetExists(“Model” & iIndexP) ... 

Next iIndexP 
End If 

Applieation.Display Alerts = saveDisplay Alerts 
End If ‘ If rMBRet = vbNo ... 

End If ‘ If bPageExists ... 

‘ *** Download Page, part 1 

Call StatusUpdate(“Creating the Download Page ...”) 

Dim sTable As String 
sTable = “Download Page” 

Set wsDownloadPage = Sheets.Add(after:=Sheets(“MasterDB”)) 

wsDownloadPage.Name = “Download Page” 

iNumRows = Range(“MasterTable[[#All]]”).Rows.Count - 1 

iNumCols = 3 + 2 * rPhaseRef.Rows.Count + 4 ‘ magie numbers: 3 is the number of 
pre-phase eolumns, 

‘ and 4 is the number of post-phase eolumns only 

Download Page 

‘ ehange DE HOURDIFF if more eolumns added or shifted 
Set rDownloadTableRange = 

wsDownloadPage.Range(STARTCEEE_DLPAGE).Offset(l, 
0).Resize(Range(“MasterTable”).Rows.Count, iNumCols) 

Dim iCol As Integer 
iCol = 0 


Dim aStr() As String 

ReDim aStr(l To iNumCols) As String 

With rDownloadTableRange 
Call StatusUpdate 

‘.Name = “DownloadTableRange” 
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aStr(DL_BLOCKS) = “Blocks” 
aStr(DL_PHASE) = “Phase” 
aStr(DL_BLOCKID) = “Block ID” 

For iIndexP = 1 To rPhaseRef.Rows.Count 

aStr(DL_PHASES + iIndexP - 1) = “Phase “ & iIndexP 
aStr(rPhaseRef.Rows.Count + DE PHASES + IIndexP - I) = “OrigPhase “ & 
IIndexP 

Next IIndexP 

iCol = 3 + 2 * rPhaseRef.Rows.Count ‘ magic number: 3 is the number of pre-phase 
columns 

aStr(iCol + DE BASEEINEHRS) = “Baseline Hours” 
aStr(iCol + DETITLE) = “Title” 
aStr(iCol + DLCOSTDIFF) = “Cost Difference” 
aStr(iCol + DLHOURDIFF) = “Hour Difference” 

‘ ASSERT: we have filled all 15 of aStr (based on 4 phases) 

.Offset(-l, 0).Resize(rowsize:=l).Value = aStr 

wsDownloadPage.ListObjects.Add(xlSrcRange, .CurrentRegion,, xlYes).Name = 
“DownloadT able” 

Range(“DownloadTable[Blocks]”).Resize(Range(“MasterTable”).Rows.Count, 

1).Formula = “=MasterTable[@Blocks]” 

Range(“DownloadTable[Blocks]”). Value = 

Range(“DownloadTable[Blocks]”). Value 

Range(“DownloadTable[Phase]”). Value = Range(“MasterTable[Phase]”). Value 
Range(“DownloadTable[Block ID]”).Value = Range(“MasterTable[Block 
ID]”).Value 

For IIndexP = I To rPhaseRef Rows.Count 

Range(“DownloadTable[[Phase “ & IIndexP & “]]”).Formula = “=( [@Phase] = 
“““ & rPhaseRef(iIndexP, I) & “““ ) * MasterTable[[Baselme Hours]]” 

Range(“DownloadTable[[OrigPhase “ & IIndexP & “]]”).Value = 
Range(“DownloadTable[[Phase “ & IIndexP & “]]”).Value 

Range(“DownloadTable[[#Headers],[Phase “ & IIndexP & “]]”).NumberFormat = 
““““ & rPhaseRef(iIndexP, I) & “““ @” 

Next IIndexP 

Range(“DownloadTable[Baselme Hours]”).Value = Range(“MasterTable[Baselme 
Hours]”).Value 

Range(“DownloadTable [Title] ”) .Value = Range(“MasterTable [Title] ”) .Value 
Call StatusUpdate 
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Dim sTemp As String ‘ TODO 
For iindex = 1 To iNumRows 
Call StatusUpdate 

.Cells(ilndex, DL_BLOCKID).AddComment (.Cells(ilndex, iCol + 
DL_TITLE).Value) 

.Cells(ilndex, DL_BLOCKID).Comment.Shape.TextFrame.AutoSize = True 
Next iindex 

End With 

Range(“DownloadTable”).Columns.auto fit 

sTemp = Range(“DownloadTable[Phase]”).Cells(l, l).Value 
Range(“DownloadTable[Phase]”).Cells(l, l).Value = “W” ‘ W == wide eharaeter 
Range(“DownloadTable[Phase]”).Cells(l, 1).Columns.auto fit 
Range(“DownloadTable[Phase]”).Cells(l, l).Value = sTemp 

With Range(“DownloadTable[[Phase l];[Phase “ & rPhaseRef.Rows.Count & “]]”) 
.EormatConditions.Add Type:=xlExpression, Pormulal:=“=NOT(“ & _ 
Range(“DownloadTable[Phase l]”).Resize(l, l).Address(rowabsolute:=Palse, 
oolumnabsolute:=Palse) &“ = “&_ 

Range(“DownloadTable[OrigPhase l]”).Resize(l, 
l).Address(rowabsolute:=Palse, oolumnabsolute:=Palse) & “)” 

With .PormatConditions(.EormatConditions.Count) 

.StopIfTrue = Ealse 

.Interior.PatternColorIndex = xlAutomatie 
.Interior.Color = 65535 
.Interior.TintAndShade = 0 
End With 

.EormatConditions.Add Type:=xlExpression, EormulaI:=“=NOT(SUM(“ & _ 
Range(“DownloadTable[[Phase I];[Phase “ & rPhaseRef.Rows.Count & 
“]]”).Resize(rowsize:=I).Address(rowabsolute:=Palse, oolumnabsolute:=True) & “) = 
“&_ 

Range(“DownloadTable[Baseline 

Hours]”).Resize(rowsize:=I).Address(rowabsolute:=Palse, oolumnabsolute:=True) & “)” 
With .PormatConditions(.EormatConditions.Count) 

.StopIfTrue = Ealse 
.Eont.Color = -16776961 
.Eont.TintAndShade = 0 
End With 
End With 
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‘ *** Model pages 

For iIndexP = 1 To rPhaseRef.Rows.Count 

Call StatusUpdate(“Creating the “ & rPhaseRef(iIndexP, 1) & “ Model...”) 
Call MakeModelPage(ilndexP) 

Next iIndexP 

‘ *** Download Page, part 2 

Call StatusUpdate(“Finishing the Download Page ...”) 

Set rDiffTable = Range(“DownloadTable”).Offset(l, 

Range(“DownloadTable”).Columns.Count + 3).Resize(2 * rPhaseRef.Rows.Count, 
rSkillsList.Rows.Count) 

Const DL TABLE SEP As Integer = 3 ‘ header row plus two gap rows 

Set rBaselineTable = rDiffTable.Offset(DE_TABEE_SEP + 2 * 
rPhaseRef Rows.Count, 0) 

Set rWhatIfTable = rBaselineTable.Offset(DE_TABEE_SEP + 2 * 
rPhaseRef Rows.Count, 0) 

‘ We’ll set up rDiffTable last sinee it depends on the other two ... 

‘ perhaps not strietly necessary, but it makes sense. 

With rBaselineTable 

.Name = “BaselineTable” 

.Offset(-l, -l).Resize(l, 1).Value = “Baseline” 

.Offset(-l, 0).Resize(rowsize:=l).Value = Range(“Pirewalls”).Offset(-l, 
0).Resize(rowsize:=l).Value 

.Offset(0, -l).Resize(columnsize:=l).Value = Range(“Pirewalls”).Offset(0, - 
l).Resize(columnsize:=l). Value 

.Offset(0, -l).Resize(rPirewalls.Rows.Count, l).Value = 
Range(“Pirewalls”).Offset(0, -l).Resize(rPirewalls.Rows.Count, 1).Value 
.Offset(-l, 0).Resize(l, rPirewalls.Columns.Count).Value = 
Range(“Pirewalls”).Offset(-l, 0).Resize(l, rPirewalls.Columns.Count).Value 

End With 

With rWhatIfTable 

.Name = “WhatlfTable” 

.Offset(-l, -l).Resize(.Rows.Count + 1, .Columns.Count + l).Value = _ 
rBaselineTable.Offset(-l, -1).Resize(.Rows.Count + 1, .Columns.Count + 
1). Value 
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.Offset(-l, -l).Resize(l, 1).Value = “What-If’ 

End With 

With rDiffTable 

.Name = “DiffTable” 

.Offset(-l, -l).Resize(.Rows.Count + 1, .Columns.Count + l).Value = _ 
rBaselineTable.Offset(-l, -1).Resize(.Rows.Count + 1, .Columns.Count + 

1). Value 

.Offset(-l, -l).Resize(l, l).Value = “Difference” 

End With 

Call StatusUpdate 

Eor ilndexP = 1 To rPhaseRef Rows.Count 

Range(“DownloadTable[Phase “ & ilndexP & “]”).Value = Range(“Tablel[[Phase 
“ & ilndexP & “]]”).Value 

Eor ilndexS = 1 To rSkillsEist.Rows.Count 
Call StatusUpdate 

rBaselineTable(2 * ilndexP - 1, ilndexS).Eormula = _ 

“=lNDEX(Table” & ilndexP & “[Baseline GALE “ & ilndexS & “], 1)” 
rBaselineTable(2 * ilndexP, ilndexS).Eormula = _ 

“=INDEX(Table” & ilndexP & “[Baseline GALE “ & ilndexS & “], “ & _ 
“COUNT(Table” & ilndexP & “[Baseline GALE “ & ilndexS & “]))” 

rWhatlfrable(2 * ilndexP - 1, ilndexS).Eormula = _ 

“=INDEX(Table” & ilndexP & “[What If GALE “ & ilndexS & “], 1)” 
rWhatlfrable(2 * ilndexP, ilndexS).Eormula = _ 

“=lNDEX(Table” & ilndexP & “[What If GALE “ & ilndexS & “], “ & _ 
“COUNT(Table” & ilndexP & “[What If GALE “ & ilndexS & “]))” 

rDiffrable(2 * ilndexP - 1, ilndexS).Eormula = _ 

“=“ & rWhatlfrable(2 * ilndexP - 1, ilndexS).Address & “ - “ & 
rBaselineTable(2 * ilndexP - 1, ilndexS).Address 

rDiffrable(2 * ilndexP, ilndexS).Eormula = _ 

“=“ & rWhatlfrable(2 * ilndexP, ilndexS).Address & “ - “ & rBasebneTable(2 
* ilndexP, ilndexS).Address 
Next ilndexS 
Next ilndexP 

rDiffTable.Offset(0, -l).Resize(l, rSkillsEist.Rows.Count + l).EntireColumn.autolit 
Call StatusUpdate 

Call EormatTable(rBaselineTable, bDataEntry:=Ealse) 

Call StatusUpdate 
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Call FormatTable(rWhatIfrable, bDataEntry:=False) 

Call StatusUpdate 

Call FormatTable(rDiffrable, bDataEntry:=False) 

Set rCostData = rDiffrable.Offset(2 - rDiffrable.Cells(l, l).Row, 
rSkillsEist.Rows.Count + 2).Resize(rPhaseRef.Rows.Count, 3) ‘ magic numbers 

Set rHoursData = rCostData.Offset(0, 5) ‘ initially set one more away so EormatTable 
can work cleanly, then we’ll delete the empty column 
rCostData.Name = “CostData” 
rHoursData.Name = “HoursData” 

With rCostData.Resize(l, 1) 

.Offset(-l, 0) = “Baseline” 

.Offset(-l, l) = “WhatIf’ 

.Offset(-l, 2) = “Difference” 

.Offset(rPhaseRef Rows.Count, 0) = “Cost” 

.Offset(rPhaseRef.Rows.Count, 2).PormulaRlCl = “=SUM(R[-4]C:R[-1]C)” 

End With 

With rHoursData.Offset(-l, -l).Resize(l, 1) 

.Value = “$1,000” 

.Horizontal Alignment = xlCenter 
.Eont.Bold = Ealse 
End With 

rHoursData.Offset(0, -l).Resize(rPhaseRef.Rows.Count, l).Value = 
rPhaseRef.Resize(rPhaseRef.Rows.Count, 1). Value 

rHoursData.Offset(-l, 0).Resize(l, 3).Value = rCostData.Offset(-l, 0).Resize(l, 
3).Value 

rHoursData.Offset(rPhaseRefRows.Count, 0).Resize(l, 1) = “Hours” 
rHoursData.Offset(rPhaseRefRows.Count, 2).Resize(l, l).EormulaRlCl = 
“=SUM(R[-4]C:R[-1]C)” 

Eor iIndexP = 1 To rPhascRef Rows.Count 

rCostData(iIndexP, l).Eormula = “=SUM(Table” & iIndexP & “[Baseline 
CostjyiOOO” 

rCostData(iIndexP, 2).Eormula = “=SUM(Table” & IIndexP & “[What If 
CostjyiOOO” 

rCostData(iIndexP, 3).PormulaRICI = “=rc[-I] - rc[-2]” 

rHoursData(iIndexP, I).Pormula = “=SUM(DownloadTable[OrigPhase “ & IIndexP 
& “])” 

rHoursData(iIndexP, 2).Pormula = “=SUM(DownloadTable[Phase “ & IIndexP & 

“])” 

rHoursData(iIndexP, 3).PormulaRICI = “=rc[-I] - rc[-2]” 

Next IIndexP 
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Call StatusUpdate 

Call FormatTable(rCostData, bDataEntry:=False) 

Call StatusUpdate 

Call FormatTable(rHoursData, bDataEntry:=False, iNumDigits:=l) 
rHoursData.Offset(rPhaseRef.Rows.Count, 2).Resize(l, l).NumberEormat = “0.0” 

rHoursData.Offset(0, -2).Resize(l, l).EntireColumn.Delete ‘ this was an empty 
column kept in for ease of EormatTable 

Union(rCostData.Resize(4, 4), rHoursData).EntireColumn.autoflt 


‘ *** summary table, next to hourdata 

Set rHoursComparison = rHoursData.Offset(0, rHoursData.Columns.Count + 
2).Resize(2, rSkillsEist.Rows.Count) 

rHoursComparison.Offset(-l, 0).Resize(rowsize:=l).Value = 
Range(“Eirewalls”).Offset(-l, 0).Resize(l, rEirewalls.Columns.Count).Value 
rHoursComparison.Offset(0, -l).Resize(columnsize:=l).Value = 
WorksheetEunction.Transpose(Array(“Baselme,” “What If’)) 

rHoursComparison.Rows(l).EormulaArray = “=“ & rBaselineTable.Rows(2 * 
rPhaseRefRows.Count).Address 

rHoursComparison.Rows(2).PormulaArray = “=“ & rWhatIfrable.Rows(2 * 
rPhaseRefRows.Count).Address 

rHoursComparison.Name = “HoursComparison” 

Call PormatTable(rHoursComparison, bDataEntry:=Palse, iNumDigits:=2) 

Eor iIndexS = 1 To rSkillsEist.Rows.Count 
With rHoursComparison(2, iIndexS) 

.EormatConditions.Add Type:=xlCellValue, Operator:=xlEess, _ 
Eormulal:=“=mdex(SkillsEist,” & IIndexS & ,”2)” 

. E ormatC onditions( .EormatC onditions. C ount). S etE irstPriority 

With .PormatConditions( I) .Interior 
.PatternColorIndex = xlAutomatic 
.Color = 65535 
.TintAndShade = 0 
End With 

.EormatConditions(l).StopIfrrue = Ealse 
End With 
Next IIndexS 
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‘ *** Annual cost difference 

Set rAnnualCostDiff = rHoursComparison.Offset(3, l).Resize(l, 2) 

With rAnnualCostDiff 

.Resize(l, l).Formula = “=AnnualThroughput * “ & 
rCostData.Offset(rPhaseRef.Rows.Count, 2).Resize(l, l).Address 
.Offset(0, -l).Resize(l, 1).Value = “Annual Cost Differenee” 

•Merge 
End With 

Call FormatTable(rAnnualCostDiff, bDataEntry:=False, rowHeaderAlign:=xlRight) 

rAnnualCostDiff.Name = “AnnualCostDiff ’ 

‘ Accounting format, so that 0 looks like ete. 

Union(rCostData, _ 

rCostData.Offset(rPhaseRefRows.Count, 2).Resize(l, 1), _ 
rAnnualCostDiff).NumberFormat = FMTACCT 

‘ Baseline GRAPH 
wsDownloadPage .Activate 

Dim ehBaseline As Chart, ehWhatIf As Chart, ITmp As Integer 

Set ehBaseline = wsDownloadPage.ChartObjects.Add(DE_CHART_EEFT, 

DE CHART TOP, DE CHART WIDTH, DE_CHART_HEIGHT).Chart 
Set ehWhatIf = wsDownloadPage.ChartObjects.Add(DE_CHART_LEFT, 

DE CHART TOP + DE CHART HEIGHT + 20, DE CHART WIDTH, 
DE_CHART_HEIGHT).Chart 

With ehBaseline 

.ChartType = xBDColumn 

. SetSourceData Source:=rBaselineTable. CurrentRegion 
.Eoeation where:=xlLoeationAsObjeet, Name:=“Download Page” 

.HasTitle = True 
.ChartTitle.Text = “Baseline” 

End With 

With ehWhatIf 

.ChartType = xBDColumn 

• SetSourceData Source:=rWhatIfTable.CurrentRegion 
.Eoeation where:=xlEocationAsObject, Name:=“Download Page” 

.HasTitle = True 
.ChartTitle.Text = “What If’ 

End With 

For iTmp = 1 To wsDownloadPage.ChartObjects.Count 


109 



With wsDownloadPage.ChartObjects(iTmp).Chart 
•Legend.Delete 
.PlotVisibleOnly = False 

.Axes(xlValue).TickLabels.NumberFormat = “0.00” 
.Axes(xlValue).MajorGridlines. Select 
.SeriesCollection(2 * rPhaseRef.Rows.Count).Select 
.SeriesCollection(2 * rPhaseRef.Rows.Count).ApplyDataLabels 
.SeriesCollection(2 * rPhaseRef.Rows.Count).DataLabels.NumberFormat = 
“#,## 0 . 00 ” 

End With 
Next iTmp 

‘ Pretty things up 

Range(Range(“DownloadTable[[#Headers],[OrigPhase l]]”).EntireColumn, _ 
rCostData.Resize(l, l).Offset(0, -l).EntireColumn).Hidden = True 
wsDownloadPage.Cells(Range(“DownloadTable”).Resize(l, l).Row, _ 
rCostData.Resize(l, 1).Column).Select 
ActiveWindow.freezepanes = True 
Range(“DownloadTable[[Phase l]]”).Cells(l, 1).Select 

‘ Add the buttons 
Call StatusReset 

Dim btnReset As Button, btnSave As Button ‘ TODO 
With Range(DE_BTN_RESET) 

Set btnReset = ActiveSheet.Buttons.Add(.Eeft, .Top, .Width, .Height) 

End With 

btnReset. OnAction = “DownloadReset” 
btnReset. Characters.Text = “Reset Hours” 

With Range(DE_BTN_RESET_HEEP) 

.Value = “?” 

.Horizontal Alignment = xlCenter 

.AddComment (“Resets all ““What Ifhours for all phases to ““Baseline 
Hours”.”“ & vbCrEf & vbCrEf &”NOTE! This action cannot be undone! If you 
want to save the current state” & vbCrEf & “then click ““Save Scenario”“ first.”) 
.Comment.Shape.TextErame.AutoSize = True 
End With 

Call StatusReset 
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With Range(DL_BTN_SAVE) 

Set btnSave = ActiveSheet.Buttons.Add(.Left, .Top, .Width, .Height) 

End With 

btnSave.OnAetion = “DownloadSave” 
btnSave.Charaeters.Text = “Save Seenario” 

With Range(DE_BTN_SAVE_HEEP) 

.Value = “?” 

.Horizontal Alignment = xlCenter 

.AddComment (“Saves this seenario work-in-progress as a new worksheet.” & vbCrEf & 
vbCrEf &”NOTE! All numbers and eharts on the new worksheet will be statie” & vbCrEf 
& “and will not refleet ehanges in any other portion of this spreadsheet.”) 
.Comment.Shape.TextErame.AutoSize = True 
End With 

‘ Restore eontrol to the user. 

Call StatusReset 

Applieation.CutCopyMode = Ealse 
Applieation.Display Alerts = saveDisplay Alerts 
Applieation.SereenUpdating = True 
End Sub 

‘ MakeModelPage(PhaseString) 

‘ Input: integer, referring to the numbered phase to build; 

‘ 1-based, meaning “1” refers to Primary in the example usage, 

‘ as defined in PhaseRef, first eolumn 
‘ Output: deletes Model# worksheet if it exists, 

‘ eopies from previous Model sheet if it exists, MasterDB otherwise, 

‘ Adds remaining eolumns and formulas 
‘ Assumptions: 

‘ - StatusBar work is being done and Statusinitiate has been run 
‘ - Applieation.SereenUpdating (and similar visuals-eontrollers) have been set 

Sub MakeModelPage(ByVal iPhase As Integer) 

Dim bCopyMaster As Boolean 
Dim wsModel As Worksheet 

Dim rPhaseRef As Range, rSkillsEist As Range, sTable As String 
Dim iIndexS As Integer, iIndexP As Integer 
Dim aHeadersO As String, aPormulas() As String 
Dim sDegrades As String 

Dim iEastCol As Integer ‘ used to append to the DataTable 
Dim sPhase As String 
Dim sTemp As String 
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Set rPhaseRef = Range(“PhaseRef’) 
Set rSkillsList = Range(“SkillsList”) 


sPhase = rPhaseRef(iPhase, 1) 

If WorksheetExists(“Model” & iPhase) Then 
Applieation.DisplayAlerts = False 
Sheets(“Model” & iPhase).Delete 
End If ‘ if worksheetexists(“Model” & iphase) ... 

Call StatusUpdate 

If WorksheetExists(“Model” & (iPhase - 1)) Then 
bCopyMaster = False 
‘ previous model exists, copying it 

Sheets(“Modef’ & (iPhase - l)).Copy after:=Sheets(“Model” & (iPhase - 1)) 

Else 

bCopyMaster = True 

‘ first time or previous model does not exist, copying MasterDB 
Sheets(“MasterDB”).Copy after:=Sheets(“MasterDB”) 

End If ‘ If WorksheetExists(“Model” & (iPhase - 1)) ... 

Set wsModel = ActiveSheet 

Call StatusUpdate 

With wsModel 

.Name = “Model” & iPhase 
.EistObjects(l).Unlist ‘ remove the datatable 
.EistObjects.Add(xlSrcRange, _ 
Intersect(Range(STARTCEEE_MASTERDB).CurrentRegion, 
Range(STARTCEEE_MASTERDB).CurrentRegion.Offset(l, 0)),, xlYes).Name = 
“Table” & iPhase 
End With 

sTable = “Table” & iPhase 

ReDim aFormulas(5 + 3 * rPhaseRef.Rows.Count) As String ‘ magic number; 5 
includes model, BE min, BE max, WI hours, and HourDiff 

ReDim aHeaders(5 + 3 * rPhaseRef.Rows.Count) As String ‘... and 3* is because we 
have 3 columns per phase; ph, phmin, and platform 

iEastCol = Range(“Table” & iPhase).Columns.Count 

If bCopyMaster Then 
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For iIndexP = 1 To rPhaseRef.Rows.Count 
Call StatusUpdate 

sDegrades = sDegrades & Degrades” & iIndexP 
Next IIndexP 

sDegrades = Mid(sDegrades, 3) 

‘ starting “from seratch,” need to build in all new columns 
‘ the initial block of columns, static, throw it at the end of the table 
Range(sTable & “[#Headers]”).Offset(0, Range(sTable & 
“[#Headers]”).Columns.Count).Resize(l, columnsize:=7).Value = Array( _ 

“Model,” _ 

“Baseline Min,” _ 

“Baseline Max,” _ 

“What If Hours,” _ 

“Hour Difference,” _ 

“Baseline Cost,” _ 

“What If Cost”) 

For IIndexP = I To rPhascRef Rows.Count 
Call StatusUpdate 
‘ added per-phase 

Range(sTable & “[#Headers]”).Offset(0, Range(sTable & 
“[#Headers]”).Columns.Count).Resize(l, columnsize:=3).Value = Array( _ 

“Phase “ & IIndexP, _ 

“Phase Min “ & IIndexP, _ 

“Platform “ & IIndexP) 

Next IIndexP 

For iIndexS = I To rSkillsList.Rows.Count 
Call StatusUpdate 
‘ added per-skill 

‘ magic number: 6 is the number of columns we’re adding here 
Range(sTable & “[[#Headers],[Skill “ & iIndexS & “]]”).Offset(0, l).Resize(l, 
6).EntireColumn.Insert 

Range(sTable & “[[#Headers],[Skill “ & IIndexS & “]]”).Offset(0, I).Resize(I, 
6). Value = Array( _ 

“Degr Skill “ & IIndexS, _ 

“Baseline % Total “ & IIndexS, _ 

“Baseline GALE “ & IIndexS, _ 

“What If % Total “ & IIndexS, _ 

“What If GALE “ & IIndexS, _ 

“Difference “ & IIndexS) 

Next IIndexS 
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For iIndexP = 1 To rPhaseRef.Rows.Count 
Call StatusUpdate 
‘ added per-phase 

Range(sTable & “[Phase “ & iIndexP & “]”).Resize(l, eolumnsize:=3).Value = 
Array( _ 

“=([@Phase] = “““ & rPhaseRef(iIndexP, 1) & “““) * [©[Baseline Hours]],” _ 
“=([@Phase] = “““ & rPhaseRef(iIndexP, 1) & “““) * [©[Baseline Min]],” _ 
“=VLOOKUP([©Funetion], CHOOSE( MATCH([©Phase], 
INDEX(PhaseRef„l), 0), “ & sDegrades & “), “ & _ 

‘TE([©[Flt or Sim]]=““Elt”,” 0, 1) + “ & 2 * (rPhaseRef.Rows.Count + 1) - 2 * 
IIndexP + 1 & ,” EAESE)”) 

Range(sTable & “[Platform “ & IIndexP & “]”).Resize(I, I) = 0 

With Range(sTable & “[[#Headers],[Phase “ & IIndexP & “]]”).Offset(-I, 0) 
.Resize(I, I) = rPhaseRef(IIndexP, I) 

.Resize(I, 3).Merge 
End With 
Next IIndexP 

End If ‘ If bCopyMaster ... 

‘ initial bloek 

‘ Model, Baseline Min, Baseline Max, What If Hours, Hour Differenee, Baseline Cost, 
What If Cost 

Range(sTable & “[Model]”).Resize(I, oolumnsize:=7).Value = Array( _ 

“=EOOKUP([©[Baseline Hours]], {0,0.5, !}),”_ 

“=VEOOKUP([©Phase], PhaseRef, 3, EAESE) * [©[Baseline Hours]],” _ 
“=DownloadTable[©[Phase “ & iPhase & “]],” _ 

“=[©[What If Hours]] - [©[Phase “ & iPhase & “]],” _ 

“=([©Phase] = “““ & sPhase & “““) * IF([Flt or Sim] = ““Pit”,” INDEX(PhaseRef, 
“ & iPhase & ,” 4), INDEX(PhaseRef, “ & iPhase & ,” 5)) * [©[Baseline Hours]],” _ 
“=IP([Plt or Sim] = ““Eh”,” INDEX(PhaseRef, “ & iPhase & ,” 4), 
INDEX(PhaseRef, “ & iPhase & ,” 5)) * [©[What If Hours]]”) 

Range(sTable & “[Model]”).Resize(I, oolumnsize:=5).Pormula = Range(sTable & 
“[Model]”).Resize(I, oolumnsize:=5).Value 

Por iIndexS = 1 To rSkillsEist.Rows.Count 
Call StatusUpdate 
‘ added per-skill 

‘ leave out “Differenee #” sinee it’s being eorrupted as we mod row 1, so we’ll add 
it later 

Range(sTable & “[Degr Skill “ & iIndexS & “]”).Resize(l, 
eolumnsize:=5).PormulaRlCl = Array( _ 

“=[©[Platform “ & iPhase & “]] * [©[Skill “ & iIndexS & “]],” _ 

“=[©[Phase “ & iPhase & “]] * [©[Degr Skill “ & iIndexS & “]] / “ & _ 
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“SUMPRODUCT([Phase “ & iPhase & “], [Degr Skill “ & iIndexS & _ 

“=( INDEX(Firewalls, “ & (2 * iPhase) & “ & iIndexS & “) - 

INDEX(Firewalls, “ & (2 * iPhase -!)&,”“& iIndexS &“))*“&_ 

“[©[Baseline % Total “ & iIndexS & “]] + R[-1]C,” _ 

“=([@[What If Hours]] * [@[Degr Skill “ & iIndexS & “]]) / “ & _ 

“SUMPRODUCT([Phase “ & iPhase & “], [Degr Skill “ & iIndexS & “]),” _ 
“=( INDEX(Firewalls, “ & (2 * iPhase) & “ & iIndexS & “) - 

INDEX(Firewalls, “ & (2 * iPhase -!)&,”“& iIndexS &“))*“&_ 

“[@[What If % Total “ & iIndexS & “]] + R[-1]C”) 

Range(sTable & “[Degr Skill “ & iIndexS & “]”).Resize(l, 
eolumnsize:=6).FormulaRlCl = Range(sTable & “[Degr Skill “ & iIndexS & 
“]”).Resize(columnsize:=6). Value 

Application.AutoCorrect.AutoFillFormulasInLists = False 
Range(sTable & “[Baseline GAFF “ & iIndexS & “]”).Resize(l, l).Formula = 
“=INDEX(Firewalls, “ & (2 * iPhase -!)&,”“& iIndexS & “)” 

Union( _ 

Range(sTable & “[Baseline GAFF “ & iIndexS & “]”).Resize(l, 1), _ 
Range(sTable & “[What If GATE “ & iIndexS & “]”).Resize(I, I)).Formula = 
“=INDEX(Firewalls, “ & (2 * iPhase -!)&,”“& iIndexS & “)” 

If iPhase > I Then 

Range(sTable & “[What If GAFF “ & iIndexS & “]”).Resize(I, I).Formula = _ 
Range(sTable & “[What If GAFF “ & iIndexS & “]”).Resize(I, I).Formula & 

“ + “ & _ 

“INDEX(Table” & (iPhase - I) & “[Difference “ & iIndexS & “], count(Table” 
& (iPhase - I) & “[Difference “ & iIndexS & “]))” 

End If 

Application.AutoCorrect.AutoFillFormulasInFists = True 

Range(sTable & “[Difference “ & iIndexS & “]”).FonnulaRICI = “=RC[-I] - RC[- 
3]” 

Range(sTable & “[[#Headers],[Skill “ & iIndexS & “]]”).Offset(-l, 0).Resize(l, 

7).Merge ‘ magic number: 7 is the number columns per Skill 
Next iIndexS 

Range(sTable).EntireColumn.Hidden = True 

Dim rRng As Range 
Set rRng = Range(“Al”) ‘ random 
For iIndexS = 1 To rSkillsFist.Rows.Count 
Set rRng = Union(rRng, _ 

Range(sTable & “[Baseline GATE “ & iIndexS & “]”), _ 

Range(sTable & “[What If GAFF “ & iIndexS & “]”)) 

Next iIndexS 
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rRng.NumberFormat = “0.0000” 

Set rRng = Union(rRng, Range(sTable & “[Blocks]”)) 

With rRng.EntireColumn 
•Hidden = False 
.auto fit 
End With 

Range(sTable).NumberFormat = “0.0000” 

End Sub 

‘ DownloadResetO 
‘ Input: none 

‘ Output: the column s DownloadTable[Phase #] are reset to their original values. 
Sub DownloadResetO 

‘ This banks on the fact that the Phase columns are collocated and 
‘ the OrigPhase columns are immediately following them. 
Range(“DownloadTable[Phase 

l]”).Resize(columnsize:=Range(“PhaseRef’).Rows.Count). Value = _ 
Range(“DownloadTable[OrigPhase 
l]”).Resize(columnsize:=Range(“PhaseRef’).Rows.Count). Value 
End Sub 

‘ DownloadSaveO 
‘ Input: none 

‘ Output: the “Download Page” worksheet is cloned and all formulas 
‘ within it are converted to values only (i.e., static). 

‘ Subsequent saves will rename the new worksheet numerically 
‘ such that scenarios are not overwritten. 

Sub DownloadSaveO 
Dim wsNew As Worksheet 
Dim iCount As Integer, iTmp As Integer 

Application.ScreenUpdating = False 

With ActiveWorkbook 

.Sheets(“Download Page”).Copy after:=.Sheets(“Download Page”) 

Set wsNew = .Sheets(.Sheets(“Download Page”).Index + 1) 

End With 

iCount = 1 

For iTmp = 1 To ActiveWorkbook.Sheets.Count 
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If Mid(ActiveWorkbook.Sheets(iTmp).Name, 1, 9) = “Scenario “ Then 
‘ this is certainly not a flawless method ... 
iCount = WorksheetFunction.Max(iCount, 1 + 

Int(Mid( ActiveW orkbook. Sheets(iT mp).Name, 10))) 

End If 
Next iTmp 

wsNew.Name = “Scenario “ & iCount 
If wsNew.Names.Count > 0 Then 

For iTmp = wsNew.Names.Count To 1 Step -1 ‘ backwards since deleting ehanges 
all indexes 

Range(wsNew.Names(iTmp)).Value = Range(wsNew.Names(iTmp)).Value 
Next iTmp 

End If ‘ If wsNew.Names. Count > 0 ... 

If wsNew.Buttons.Count > 0 Then 

For iTmp = wsNew.Buttons.Count To 1 Step -1 ‘ backwards since deleting changes 
all indexes 

wsNew.Buttons(iTmp).Delete 
Next iTmp 
End If 

WithUnion(wsNew.Range(DE_BTN_SAVE_HEEP), 

wsNew.Range(DE_BTN_RESET_HEEP)) 

.ClearContents 
.ClearComments 
.Clear 
End With 

With wsNew.Range(DE_BTN_SAVE).Resize(l, 1) 

.Value = “Seenario saved:” 

.Resize(l, 3).Merge 
.Offset(l, 0).Value = Date 
.Offset(l, 0).Resize(l, 3).Merge 
.Offset(2, 0).Value = Time 
.Offset(2, 0).Resize(l, 3).Merge 
End With 

Sheets(“Download Page”) .Activate 
Applieation.ScreenUpdating = True 
End Sub 

‘ FormatTableO 
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‘ Input: a range to be formatted; just the data, the headers are found by expanding 
‘ the seleetion. 

‘ Result: Formatted as a table. 

‘ Arguments: 

‘ rRange := range object to format, not including headers which will 
‘ be found with .CurrentRegion 

‘ bDataEntry := if True, this range is meant for user data entry and 
‘ formatted with a yellow background; if False, no color. 

‘ (Default: True) 

‘ iNumDigits := the number of decimal digits to include, default = 4. 

‘ *Align := { xlLeft, xlCenter, xlRight} 

‘ An initial “CurrentRegion” is taken of the range, causing it to expand to include 
‘ all non-empty cells in a square, out to a “square moat” of empty cells. All 
‘ cells are initially formatted like a header, and then the original range is 
‘ properly formatted as data. 

Sub FormatTable(ByVal rRange As Range, Optional ByVal bDataEntry As Boolean = 
True, _ 

Optional ByVal iNumDigits As Integer = 4, Optional ByVal rowHeaderAlign 
As Integer = xlCenter, _ 

Optional ByVal columnHeaderAlign As Integer = xlCenter, Optional ByVal 
cellAlign As Integer = xlCenter, _ 

Optional ByVal ExpandRange As Boolean = True) 

Dim rTmp As Range 

If ExpandRange Then 

Set rTmp = rRange.CurrentRegion 
Else 

Set rTmp = rRange 
End If 

With rTmp.Eont 
.Bold = True 
.Name = “Calibri” 

.Size = 12 

.Strikethrough = Ealse 
.Superscript = Ealse 
.Subscript = Ealse 
.OutlineEont = Ealse 
.Shadow = Ealse 

.Underline = xlUnderlineStyleNone 
.ThemeColor = xlThemeColorEightl 
.TintAndShade = 0 
.ThemeEont = xlThemeEontMinor 
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End With 


rRange.NumberFormat = “0.” & String(iNumDigits, “0”) 
rRange.HorizontalAlignment = cellAlign 

rRange.Offset(-l, 0).Resize(rowsize:=l).HorizontalAlignment = columnHeaderAlign 
rRange.Offset(0, -l).Resize(columnsize:=l).HorizontalAlignment = rowHeaderAlign 

With rRange.Font 
•Bold = False 
End With 

With rRange.Interior 
If bDataEntry Then 
.Pattern = xlSolid 
.PatternColorIndex = xlAutomatic 
.Color = 10092543 
.TintAndShade = 0 
.PatternTintAndShade = 0 
Else 

.Pattern = xlSolid 
.PatternColorIndex = xlAutomatic 
.ThemeColor = xlThemeColorDarkl 
.TintAndShade = -0.149998474074526 
.PatternTintAndShade = 0 
End If 
End With 

Dim myBordersO As Variant, item As Variant 
myBorders = Array(xlEdgeEeft, _ 
xlEdgeTop, _ 
xlEdgeBottom, _ 
xlEdgeRight) 

For Each item In myBorders 
With rRange.Borders(item) 

.EineStyle = xlContinuous 
.Colorindex = xlAutomatic 
.TintAndShade = 0 
.Weight = xlMedium 
End With 
Next item 

myBorders = Array(xlInsideVertical, xlInsideHorizontal) 

For Each item In myBorders 
With rRange.Borders(item) 

.EineStyle = xlContinuous 
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•Colorlndex = xlAutomatic 
.TintAndShade = 0 
•Weight = xlHairline 
End With 
Next item 
End Sub 


‘ WorksheetExists 
‘ Input: the name of a worksheet 

‘ Output: True if a sheet with that name exists, Ealse otherwise 

Publie Eunetion WorksheetExists(ByVal WorksheetName As String) As Boolean 
On Error Resume Next 

WorksheetExists = (Sheets(WorksheetName).Name <> ““) 

On Error GoTo 0 
End Eunetion 

‘ TableExists 

‘ Input: the name of a (data) table, (previously known as an AutoEilter table) 

‘ Output: True if a table with that name exists, Ealse otherwise 

Publie Eunetion TableExists(ByVal TableName As String) As Boolean 
On Error Resume Next 

TableExists = (AetiveSheet.EistObjeet(TableName).Name <> ““) 

On Error GoTo 0 
End Eunetion 

‘ RangeNameExists 
‘ Input: string, the name of a range 

‘ Output: True if a range with that name exists loeally or globally, false otherwise 

Publie Eunetion RangeNameExists(ByVal RangeName As String) As Boolean 
On Error Resume Next 
RangeNameExists = Ealse 

RangeNameExists = Een(Range(RangeName).Address) <> 0 
End Eunetion 

‘ Statusinitiate 

‘ Call this in the beginning of any funetion that will be using the status bar 
‘ to ensure that the global variable is properly defined. (This would not be 
‘ neeessary if VBA allowed Publie Const Array.) 
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Sub StatusInitiateO 
SB_Message = ““ 

SBIndex = 0 

If Not IsArray(SB_HeartBeat) Then 

SB_HeartBeat = Array(“|o-1,” 

” “I-0-1,” 

-o|,” “I-0-1 

’) 

Alternatives: 

‘ Array(.”,” “o,” “O,” “o,” “ “) 

‘ Array(“\,” “-”) 


1 99 

1 ^ 1 

99 (4 

1 ^ 1 

\ 5 

1 99 (4 

1 5 


9 

99 

9 






,| ” “|..o-1,” “1-0-—I,” “I—0- 


......0-1 - “I--0-I,” “I--0--I,” “1-0 


End If 
End Sub 


‘ StatusUpdate 

‘ If called with a message, update to that message. With no arguments, 

‘ the previous message is retained and that “heartbeat” is incremented. 

‘ SB_HeartBeat should be an array that incrementally shows some form of 
‘ progress. Eor aesthetics, it is helpful to keep all strings within the 
‘ array of equal size; keep in mind that the font is a variable-width font, 

‘ so a string of three spaces and a string of three M’s are different 
‘ sizes. 


Sub StatusUpdate(Optional ByVal sMessage As Variant) 

SB Index = (SB Index +1) Mod (UBound(SB_HeartBeat) +1) 

If Not IsMissing(sMessage) Then 
SB_Message = sMessage 
End If 

Application.StatusBar = “Progress:” & SB_HeartBeat(SB_Index) & “ “ & 
SB_Message 
DoEvents 
End Sub 


‘ StatusReset 

‘I’m not certain this is necessary, but it clears the statusbar which 
‘ eventually shows “Ready.” 

Sub StatusResetO 
Application.StatusBar = Ealse 
End Sub 


Sub StatusBarTestO 

Dim iCounter As Integer, iindex As Integer, sMessages 
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On Error GoTo ErrHandler: 

Call Statusinitiate 

Application.ScreenUpdating = Ealse 

sMessages = Array(“Refining MasterDB “Starting Download Page _ 
“Making Primary Model“Making Intermediate Model 
“Making Advanced Model“Making ERS Model_ 

“Einishing Download Page ...”) 

Eor iCounter = 0 To 200 

If (iCounter Mod 200 / (UBound(sMessages) + 1)) = 0 Then 

Call StatusUpdate(sMessages(Int(iCounter / (200 / (UBound(sMessages) + 1))))) 
Else 

Call StatusUpdate 
End If 
Sleep (40) 

Next iCounter 
ErrHandler: 

On Error GoTo 0 
Call StatusReset 

Application.ScreenUpdating = True 
End Sub 

‘ AddrRow(string) 

‘ Input: an address string in AI format, e.g. “C4” or “AQ92” 

‘ Output: only the row (numerical) component, e.g. “4” or “92” 

‘ Note: input can be either relative (“C4”) or absolute (“$C$4”), though 
‘ output will always output relative-only 

Eunction AddrRow(sRange As String) 

With CreateObject(“vbscript.regexp”) 

.Global = Ealse 
.Pattern = “([0-9]+)” 

If .test(sRange) Then 

AddrRow = .Execute(sRange)(0) 

Else 

AddrRow = sRange 
End If 
End With 
End Eunction 

‘ AddrCol(string) 

‘ Input: an address string in AI format, e.g. “C4” or “AQ92” 

‘ Output: only the column (alphabetic) component, e.g. “C” or “AQ” 

‘ Note: input can be either relative (“C4”) or absolute (“$C$4”), though 
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‘ output will always output relative-only 

Function AddrCol(sRange As String) 

With CreateObject(“vbscript.regexp”) 

•ignorecase = True 
.Global = False 
.Pattern = “([A-Z]+)” 

If .test(sRange) Then 

AddrCol = .Execute(sRange)(0) 

Else 

AddrCol = sRange 
End If 
End With 
End Eunction 

‘ AddrAbs(string) 

‘ Input: an address string in AI format, e.g. “C4” or “AQ92” 

‘ Output: an absolute version of it, e.g. “$C$4” or “$AQ$92” 

‘ Note: input can be either absolute or relative. 

Eunction AddrAbs(sRange As String) 

AddrAbs = Range(sRange).Address(rowabsolute:=True, columnabsolute:=True) 
End Eunction 

‘ AddrRel(string) 

‘ Input: an address string in AI format, e.g. “C$4” or “$AQ$92” 

‘ Output: a relative version of it, e.g. “C4” or “AQ92” 

‘ Note: input can be either absolute or relative. 

Eunction AddrRel(sRange As String) 

AddrAbs = Range(sRange).Address(rowabsolute:=Ealse, columnabsolute:=Ealse) 
End Eunction 
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APPENDIX F: REQUIREMENT / ELEMENT MAPPING 



Function 

Requirement 

Element 

F.l 

Provide User 

Guidance 

Shall provide internal guidance capability to enable 
users with familiarity with the TOC effort to utilize the 
model 

Directions page, info 
bubbles 

F.1.1 

Inform User 

Shall inform user when user action is required 

Info bubbles, 
highlights 

Shall inform user when incorrect inputs are made 

Error Messages 

Shall inform user when model is busy / idle 

Progress Indicator 

Shall inform user prior to deleting any data 

Info Bubbles 

F.1.2 

Instruct User 

Shall instruct user when a specific sequence of events 
are required in orderto properly complete an action 

Directions page, 
process bubbles 

F.2 

Maintain 

Extensibility 

Shall be capable of supporting all Naval Aviation 
training pipelines 

Sub 

UpdateConfigPageO 

Shall use NMCI compatible softv/are 

Excel / VBA based 
design 

F.2.1 

Accept User 
Configuration 

Shall provide ability to change model configuration 
based on pipeline 

Sub 

UpdateConfigPageO 

Shall utilize user input to provide model configuration 

Sub 

UpdateConfigPageO 

F.2.2 

Accept User 

Parameters 

Shall utilize user defined parameters for model 

creation 

Sub 

MakeParametersPage 

0 

Shall support changes and updates to parameters 
during analysis 

Sub 

MakeParametersPage 

0 


Table 4. NAPA Model Elements Mapped to Requirements (Part 1) 
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Function 

Requirement 

Element 

F.3 

Manipulate Data 

Shall support basic forms of query either Vi/ith resident 
Excel functionality or with VBA functionality 

Excel Table 
functionality 

F.3.1 

Accept Data 
Input 

Shall accept user-defined data sets in an identified 
common format 

Excel Table Format / 
Common data 

columns 

F.3.2 

Store Data 

Shall provide the ability to store data for future 
manipulation and analysis 

Save / Save As 
functionality 

F.3.3 

Process Data 

Shall utilize Excel and VBA for data processing 

Excel / VBA based 
design 

Shall provide the ability to search and sort data 
according to user defined parameters 

Excel Table Sort 
Functionality 

F.4 

Provide Analysis 

Shall support NAWCTSD HP/iSP GALE methodology 

Sub 

MakeRemainingPages 

0 

Shall provide timely analysis results in a user-friendly 
format 

Download Page 

Shall provide cost and proficiency variations from 
baseline 

Download Page 

Shall inform user of breeched thresholds 

Download Page / 
Conditional 
formatting 

F.4.1 

Compare 

Scenarios 

Be operable by an individual with a baseline of 
knowledge in Naval Aviation training 

Design concept 

Shall provide the ability to save multiple scenarios for 
comparison 

Scenario save button 

F.4.2 

Support 

Optimization 

Shall provide ability to search for optimal training 
scenarios given desired cost or proficiency values as 
targets 

Framework provided 
No Optimization 
Capability 

F.5 

Be Supportable 

Be maintainable by an individual with above average 
computing skills (programming) 

Commented Code 

Shall be executable on any Navy Marine Corps Intranet 
(NMCI) computer 

Excel / VBA based 
design 


Table 5. NAPA Model Elements Mapped to Requirements (Part 2) 
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